Another whitespace fix for tests

2013-03-14 07:38:24 +02:00 · 2013-03-14 07:38:24 +02:00 · 3df45ac1c7
commit 3df45ac1c7
parent 55d13c62a6
1 changed files with 5 additions and 1 deletions
--- a/yesod-core/test/YesodCoreTest/Widget.hs
+++ b/yesod-core/test/YesodCoreTest/Widget.hs
@ -61,6 +61,7 @@ getTowidgetR = defaultLayout $ do

 getWhamletR :: Handler RepHtml
 getWhamletR = defaultLayout [whamlet|
+                    $newline never
                    <h1>Test
                    <h2>@{WhamletR}
                    <h3>_{Goodbye}
@ -68,7 +69,10 @@ getWhamletR = defaultLayout [whamlet|
                    ^{embed}
                |]
  where
-    embed = [whamlet|<h4>Embed|]
+    embed = [whamlet|
+                $newline never
+                <h4>Embed
+                |]

 getAutoR :: Handler RepHtml
 getAutoR = defaultLayout [whamlet|