From 32acbcedda99416d9c895a1f425d45c9c06cbade Mon Sep 17 00:00:00 2001
From: Christine Dodrill <xena@yolo-swag.com>
Date: Mon, 27 Jul 2015 23:47:39 -0700
Subject: [PATCH] Post: align record better

---
 web/src/Within/DBMemorial/Post.hs | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/web/src/Within/DBMemorial/Post.hs b/web/src/Within/DBMemorial/Post.hs
index 25cfb23..b9e55dd 100644
--- a/web/src/Within/DBMemorial/Post.hs
+++ b/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