diff options
Diffstat (limited to 'tests/Tests/Old.hs')
-rw-r--r-- | tests/Tests/Old.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/Tests/Old.hs b/tests/Tests/Old.hs index ef21990ba..bb0e2aac2 100644 --- a/tests/Tests/Old.hs +++ b/tests/Tests/Old.hs @@ -20,6 +20,7 @@ import qualified Data.ByteString.Lazy as B import Text.Pandoc.UTF8 (toStringLazy) import Text.Printf import Text.Pandoc.Error +import Tests.Helpers (purely) readFileUTF8 :: FilePath -> IO String readFileUTF8 f = B.readFile f >>= return . toStringLazy @@ -195,7 +196,7 @@ lhsReaderTest :: String -> Test lhsReaderTest format = testWithNormalize normalizer "lhs" ["-r", format, "-w", "native"] ("lhs-test" <.> format) norm - where normalizer = writeNative def . normalize . handleError . readNative + where normalizer = purely $ writeNative def . normalize . handleError . readNative norm = if format == "markdown+lhs" then "lhs-test-markdown.native" else "lhs-test.native" |