From 831889bebcca9e226e8868396d3b707c57e871b9 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 19 Jan 2011 09:38:14 -0800
Subject: Unit tests:  On failure, print the input string.

---
 tests/Tests/Readers/LaTeX.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'tests/Tests/Readers/LaTeX.hs')

diff --git a/tests/Tests/Readers/LaTeX.hs b/tests/Tests/Readers/LaTeX.hs
index 3a0a9b57a..71eaff79f 100644
--- a/tests/Tests/Readers/LaTeX.hs
+++ b/tests/Tests/Readers/LaTeX.hs
@@ -7,8 +7,8 @@ import Text.Pandoc.Builder
 import Text.Pandoc
 import Text.Pandoc.Shared (normalize)
 
-latex :: String -> Pandoc
-latex = normalize . readLaTeX defaultParserState{stateSmart = True}
+latex :: String -> (String, Pandoc)
+latex s = (s, normalize . readLaTeX defaultParserState{stateSmart = True} $ s)
 
 tests :: [Test]
 tests = [ testGroup "basic"
-- 
cgit v1.2.3