Post: align record better

web/src/Within/DBMemorial/Post.hs

@@ -6,14 +6,14 @@ import Data.Monoid()
 import Data.Text
 import Database.SQLite.Simple.FromRow
 
-data Post = Post {
-    postID       :: Int
-  , postOID      :: Text
-  , postBody     :: Text
-  , postMarkdown :: Text
-  , postAuthor   :: Text
-  , postPage     :: Int
-} deriving (Show, Eq)
+data Post = Post
+          { postID       :: Int
+          , postOID      :: Text
+          , postBody     :: Text
+          , postMarkdown :: Text
+          , postAuthor   :: Text
+          , postPage     :: Int
+          } deriving (Show, Eq)
 
 instance FromRow Post where
     fromRow = Post <$> field <*> field <*> field <*> field <*> field <*> field