From 3df45ac1c72f878321ce6132df025e778b194992 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Thu, 14 Mar 2013 07:38:24 +0200
Subject: [PATCH] Another whitespace fix for tests

---
 yesod-core/test/YesodCoreTest/Widget.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/yesod-core/test/YesodCoreTest/Widget.hs b/yesod-core/test/YesodCoreTest/Widget.hs
index 38a9f71e..c05a3f27 100644
--- 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|