From a5ce2358ab629f80b0a2c8b4ece55b196988c665 Mon Sep 17 00:00:00 2001
From: Christine Dodrill <xena@yolo-swag.com>
Date: Wed, 29 Jul 2015 21:18:00 -0700
Subject: [PATCH] run stylish-haskell

---
 web/src/Within/DBMemorial/CSS/Base.hs          | 4 ----
 web/src/Within/DBMemorial/Post.hs              | 2 +-
 web/src/Within/DBMemorial/Views/Materialize.hs | 5 ++---
 3 files changed, 3 insertions(+), 8 deletions(-)

diff --git a/web/src/Within/DBMemorial/CSS/Base.hs b/web/src/Within/DBMemorial/CSS/Base.hs
index ec46b87..6cbaad3 100644
--- a/web/src/Within/DBMemorial/CSS/Base.hs
+++ b/web/src/Within/DBMemorial/CSS/Base.hs
@@ -13,7 +13,3 @@ render = do
 
         div ?
             overflow hidden
-
-        img ? do
-            minWidth (pct 100)
-            height   auto
diff --git a/web/src/Within/DBMemorial/Post.hs b/web/src/Within/DBMemorial/Post.hs
index a8395ba..cc0ef94 100644
--- a/web/src/Within/DBMemorial/Post.hs
+++ b/web/src/Within/DBMemorial/Post.hs
@@ -9,7 +9,7 @@ import           Text.Blaze.Html5               ((!))
 import qualified Text.Blaze.Html5               as H
 import qualified Text.Blaze.Html5.Attributes    as A
 import           Text.Pandoc
-import qualified Within.DBMemorial.User as User
+import qualified Within.DBMemorial.User         as User
 
 data Post = Post
           { id       :: Int
diff --git a/web/src/Within/DBMemorial/Views/Materialize.hs b/web/src/Within/DBMemorial/Views/Materialize.hs
index f38c43f..515fba4 100644
--- a/web/src/Within/DBMemorial/Views/Materialize.hs
+++ b/web/src/Within/DBMemorial/Views/Materialize.hs
@@ -2,14 +2,13 @@
 
 module Within.DBMemorial.Views.Materialize where
 
-import qualified Clay (render)
-import           Control.Monad               (forM_)
+import qualified Clay                        (render)
 import           Data.Monoid
 import           Data.Text
 import           Text.Blaze.Html
 import           Text.Blaze.Html5            as H
 import           Text.Blaze.Html5.Attributes as A
-import qualified Within.DBMemorial.CSS.Base           as CSSBase
+import qualified Within.DBMemorial.CSS.Base  as CSSBase
 
 render :: Text -> Html -> Html
 render pageTitle inner =