From dc93073804acecaf883d099ef3e1d067a29c9951 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Fri, 14 Jan 2011 18:09:16 -0800
Subject: [PATCH] Minor code cleanup.

---
 tests/Tests/Helpers.hs | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/tests/Tests/Helpers.hs b/tests/Tests/Helpers.hs
index e6d3640d9..539b26dcd 100644
--- a/tests/Tests/Helpers.hs
+++ b/tests/Tests/Helpers.hs
@@ -20,9 +20,15 @@ assertPandoc (Block   e) (Pandoc _ [g]       ) = e @=? g
 assertPandoc (Blocks  e) (Pandoc _ g         ) = e @=? g
 assertPandoc _ _ = assertFailure "Wrong structure of Pandoc document."
 
-latexTest :: String-> String -> Expect -> Test
+latexTest :: String -> String -> Expect -> Test
 latexTest = readerTestWithState defaultParserState readLaTeX
 
-readerTestWithState :: ParserState -> (ParserState -> String -> Pandoc) -> String -> String -> Expect -> Test
-readerTestWithState state reader name string exp = testCase name $ exp `assertPandoc` reader state string 
+readerTestWithState :: ParserState
+                     -> (ParserState -> String -> Pandoc)
+                     -> String
+                     -> String
+                     -> Expect
+                     -> Test
+readerTestWithState state reader name string e =
+  testCase name $ e `assertPandoc` reader state string