Run stylish-haskell

web/src/Main.hs

@@ -2,7 +2,7 @@
 module Main where
 
 import qualified Database.SQLite.Simple as Db
-import qualified Web.Spock.Safe as S hiding (head)
+import qualified Web.Spock.Safe         as S hiding (head)
 import qualified Within.DBMemorial.Post as Post
 
 main :: IO ()

web/src/Within/DBMemorial/Post.hs

@@ -1,10 +1,10 @@
 {-# LANGUAGE OverloadedStrings #-}
 module Within.DBMemorial.Post where
 
-import Control.Applicative
-import Data.Monoid()
-import Data.Text
-import Database.SQLite.Simple.FromRow
+import           Control.Applicative
+import           Data.Monoid                    ()
+import           Data.Text
+import           Database.SQLite.Simple.FromRow
 
 data Post = Post
           { id       :: Int

web/src/Within/DBMemorial/User.hs

@@ -1,10 +1,10 @@
 {-# LANGUAGE OverloadedStrings #-}
 module Within.DBMemorial.User where
 
-import Control.Applicative
-import Data.Monoid()
-import Data.Text
-import Database.SQLite.Simple.FromRow
+import           Control.Applicative
+import           Data.Monoid                    ()
+import           Data.Text
+import           Database.SQLite.Simple.FromRow
 
 data User = User
           { id     :: Int

web/src/Within/DBMemorial/Views/Example.hs

@@ -2,10 +2,10 @@
 
 module Within.DBMemorial.Views.Example where
 
-import Control.Monad (forM_)
-import Text.Blaze.Html
-import Text.Blaze.Html5 as H
-import Text.Blaze.Html5.Attributes as A
+import           Control.Monad               (forM_)
+import           Text.Blaze.Html
+import           Text.Blaze.Html5            as H
+import           Text.Blaze.Html5.Attributes as A
 
 numbers :: Int -> Html
 numbers n = docTypeHtml $ do