diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2016-12-08 21:32:25 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-01-25 17:07:41 +0100 |
| commit | 54932ade677b48ec42f6461028a3b58bb85aaa50 (patch) | |
| tree | 4d8a65f7c4830e47873419d9125b004ef4035de3 /tests/Tests | |
| parent | 40ac0cf133e2bb7f1504def48329bc67d2414225 (diff) | |
| download | pandoc-54932ade677b48ec42f6461028a3b58bb85aaa50.tar.gz | |
Class: no more MonadState CommonState.
- Added getCommonState, putCommonState, getsCommonState, modifyCommonState
to PandocMonad interface.
- Removed MonadState CommonState instances.
Diffstat (limited to 'tests/Tests')
| -rw-r--r-- | tests/Tests/Readers/Txt2Tags.hs | 4 |
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 |