aboutsummaryrefslogtreecommitdiff
path: root/test/Tests
diff options
context:
space:
mode:
Diffstat (limited to 'test/Tests')
-rw-r--r--test/Tests/Readers/Muse.hs6
-rw-r--r--test/Tests/Readers/Txt2Tags.hs6
2 files changed, 4 insertions, 8 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs
index f89c58d3f..158f5788e 100644
--- a/test/Tests/Readers/Muse.hs
+++ b/test/Tests/Readers/Muse.hs
@@ -13,10 +13,8 @@ import Text.Pandoc.Class
muse :: Text -> Pandoc
muse = purely $ \s -> do
- putCommonState
- def { stInputFiles = Just ["in"]
- , stOutputFile = Just "out"
- }
+ setInputFiles ["in"]
+ setOutputFile (Just "out")
readMuse def s
infix 4 =:
diff --git a/test/Tests/Readers/Txt2Tags.hs b/test/Tests/Readers/Txt2Tags.hs
index 580815279..041918e70 100644
--- a/test/Tests/Readers/Txt2Tags.hs
+++ b/test/Tests/Readers/Txt2Tags.hs
@@ -14,10 +14,8 @@ import Text.Pandoc.Class
t2t :: Text -> Pandoc
-- t2t = handleError . readTxt2Tags (T2TMeta "date" "mtime" "in" "out") def
t2t = purely $ \s -> do
- putCommonState
- def { stInputFiles = Just ["in"]
- , stOutputFile = Just "out"
- }
+ setInputFiles ["in"]
+ setOutputFile (Just "out")
readTxt2Tags def s
infix 4 =: