From 438f32cdfac869e44ba6998d27becd10de507ad8 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Thu, 6 Jan 2011 16:54:15 -0800 Subject: test-pandoc: Wrap to 78 columns in lhs writer tests. --- src/test-pandoc.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') diff --git a/src/test-pandoc.hs b/src/test-pandoc.hs index 173816fb1..9b6d96510 100644 --- a/src/test-pandoc.hs +++ b/src/test-pandoc.hs @@ -150,7 +150,7 @@ readFile' f = do s <- readFileUTF8 f runLhsWriterTest :: String -> IO Bool runLhsWriterTest format = - runTest ("(lhs) " ++ format ++ " writer") ["-r", "native", "-s", "-w", format] "lhs-test.native" ("lhs-test" <.> format) + runTest ("(lhs) " ++ format ++ " writer") ["--columns=78", "-r", "native", "-s", "-w", format] "lhs-test.native" ("lhs-test" <.> format) runLhsReaderTest :: String -> IO Bool runLhsReaderTest format = -- cgit v1.2.3