From ca7b78ee428a43bb307ecefb65529d5106751192 Mon Sep 17 00:00:00 2001
From: samgd <sam@samgd.com>
Date: Sun, 24 Jul 2016 15:10:12 +0200
Subject: Working trimming but module loop and formatting req.

---
 tests/Hakyll/Web/Template/Tests.hs | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'tests')

diff --git a/tests/Hakyll/Web/Template/Tests.hs b/tests/Hakyll/Web/Template/Tests.hs
index a7b31a7..087e0cb 100644
--- a/tests/Hakyll/Web/Template/Tests.hs
+++ b/tests/Hakyll/Web/Template/Tests.hs
@@ -41,30 +41,30 @@ tests = testGroup "Hakyll.Core.Template.Tests" $ concat
         -- 'If' trim check.
         , Template
             [ TrimL
-            , TrimR
             , If (Ident (TemplateKey "body"))
-                 (Template [ Chunk "\n"
+                 (Template [ TrimR
+                           , Chunk "\n"
                            , Expr (Ident (TemplateKey "body"))
                            , Chunk "\n"
+                           , TrimL
                            ])
-                 (Just (Template [ TrimL
-                                 , TrimR
+                 (Just (Template [ TrimR
                                  , Chunk "\n"
                                  , Expr (Ident (TemplateKey "body"))
                                  , Chunk "\n"
+                                 , TrimL
                                  ]))
-            , TrimL
             , TrimR
             ]
             @=? readTemplate "$-if(body)-$\n$body$\n$-else-$\n$body$\n$-endif-$"
         -- 'For' trim check.
         , Template
             [ TrimL
-            , TrimR
             , For (Ident (TemplateKey "authors"))
-                  (Template [Chunk "\n   body   \n"])
+                  (Template [ TrimR
+                            , Chunk "\n   body   \n"
+                            , TrimL])
                   Nothing
-            , TrimL
             , TrimR
             ]
             @=? readTemplate "$-for(authors)-$\n   body   \n$-endfor-$"
-- 
cgit v1.2.3