summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2016-12-08 21:32:25 +0100
committerJohn MacFarlane <jgm@berkeley.edu>2017-01-25 17:07:41 +0100
commit54932ade677b48ec42f6461028a3b58bb85aaa50 (patch)
tree4d8a65f7c4830e47873419d9125b004ef4035de3 /tests
parent40ac0cf133e2bb7f1504def48329bc67d2414225 (diff)
Class: no more MonadState CommonState.
- Added getCommonState, putCommonState, getsCommonState, modifyCommonState to PandocMonad interface. - Removed MonadState CommonState instances.
Diffstat (limited to 'tests')
-rw-r--r--tests/Tests/Readers/Txt2Tags.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/Tests/Readers/Txt2Tags.hs b/tests/Tests/Readers/Txt2Tags.hs
index bef1d4965..77430601b 100644
--- a/tests/Tests/Readers/Txt2Tags.hs
+++ b/tests/Tests/Readers/Txt2Tags.hs
@@ -4,7 +4,6 @@ module Tests.Readers.Txt2Tags (tests) where
import Text.Pandoc.Definition
import Test.Framework
import Tests.Helpers
-import Control.Monad.State
import Text.Pandoc.Arbitrary()
import Text.Pandoc.Builder
import Text.Pandoc
@@ -15,7 +14,8 @@ import Text.Pandoc.Class
t2t :: String -> Pandoc
-- t2t = handleError . readTxt2Tags (T2TMeta "date" "mtime" "in" "out") def
t2t = purely $ \s -> do
- put def { stInputFiles = Just ["in"]
+ putCommonState
+ def { stInputFiles = Just ["in"]
, stOutputFile = Just "out"
}
readTxt2Tags def s