diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2016-11-27 16:38:46 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-01-25 17:07:40 +0100 |
| commit | 18e85f8dfbf9323945969cdf831c9a16f90299a0 (patch) | |
| tree | c47adf1787d486874c54e18b9d19821fc0ca5433 /tests/Tests/Old.hs | |
| parent | bf8fb78389c0d2dc06ad91bc379fde5bd7e1f768 (diff) | |
Changed readNative to use PandocMonad.
Diffstat (limited to 'tests/Tests/Old.hs')
| -rw-r--r-- | tests/Tests/Old.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/Tests/Old.hs b/tests/Tests/Old.hs index bb0e2aac2..b76043887 100644 --- a/tests/Tests/Old.hs +++ b/tests/Tests/Old.hs @@ -196,7 +196,9 @@ lhsReaderTest :: String -> Test lhsReaderTest format = testWithNormalize normalizer "lhs" ["-r", format, "-w", "native"] ("lhs-test" <.> format) norm - where normalizer = purely $ writeNative def . normalize . handleError . readNative + where normalizer = purely $ \nat -> do + d <- handleError <$> readNative nat + writeNative def $ normalize d norm = if format == "markdown+lhs" then "lhs-test-markdown.native" else "lhs-test.native" |