diff --git a/web/src/Main.hs b/web/src/Main.hs
index 154e359..28589a3 100644
--- a/web/src/Main.hs
+++ b/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 ()
diff --git a/web/src/Within/DBMemorial/Post.hs b/web/src/Within/DBMemorial/Post.hs
index c0b70c3..7971dd8 100644
--- a/web/src/Within/DBMemorial/Post.hs
+++ b/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
diff --git a/web/src/Within/DBMemorial/User.hs b/web/src/Within/DBMemorial/User.hs
index 3bc143e..2bb63fb 100644
--- a/web/src/Within/DBMemorial/User.hs
+++ b/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
diff --git a/web/src/Within/DBMemorial/Views/Example.hs b/web/src/Within/DBMemorial/Views/Example.hs
index 04667cb..006ad60 100644
--- a/web/src/Within/DBMemorial/Views/Example.hs
+++ b/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