Another whitespace fix for tests
This commit is contained in:
parent
55d13c62a6
commit
3df45ac1c7
@ -61,6 +61,7 @@ getTowidgetR = defaultLayout $ do
|
|||||||
|
|
||||||
getWhamletR :: Handler RepHtml
|
getWhamletR :: Handler RepHtml
|
||||||
getWhamletR = defaultLayout [whamlet|
|
getWhamletR = defaultLayout [whamlet|
|
||||||
|
$newline never
|
||||||
<h1>Test
|
<h1>Test
|
||||||
<h2>@{WhamletR}
|
<h2>@{WhamletR}
|
||||||
<h3>_{Goodbye}
|
<h3>_{Goodbye}
|
||||||
@ -68,7 +69,10 @@ getWhamletR = defaultLayout [whamlet|
|
|||||||
^{embed}
|
^{embed}
|
||||||
|]
|
|]
|
||||||
where
|
where
|
||||||
embed = [whamlet|<h4>Embed|]
|
embed = [whamlet|
|
||||||
|
$newline never
|
||||||
|
<h4>Embed
|
||||||
|
|]
|
||||||
|
|
||||||
getAutoR :: Handler RepHtml
|
getAutoR :: Handler RepHtml
|
||||||
getAutoR = defaultLayout [whamlet|
|
getAutoR = defaultLayout [whamlet|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user