diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2015-02-18 19:57:48 +0000 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2015-02-18 21:09:07 +0000 |
| commit | 1a7a99161a6a41d8eba7ce02482eeaf0b0ba75d5 (patch) | |
| tree | f74f32feb3b2e9eb436dc4a076a549491e0f55e9 /tests/Tests/Readers/Txt2Tags.hs | |
| parent | 70e0c4d41b94edcc611a652c2f02973aff667121 (diff) | |
| download | pandoc-1a7a99161a6a41d8eba7ce02482eeaf0b0ba75d5.tar.gz | |
Update tests
Diffstat (limited to 'tests/Tests/Readers/Txt2Tags.hs')
| -rw-r--r-- | tests/Tests/Readers/Txt2Tags.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/Tests/Readers/Txt2Tags.hs b/tests/Tests/Readers/Txt2Tags.hs index fd7c767e0..938a2b455 100644 --- a/tests/Tests/Readers/Txt2Tags.hs +++ b/tests/Tests/Readers/Txt2Tags.hs @@ -7,12 +7,13 @@ import Tests.Helpers import Tests.Arbitrary() import Text.Pandoc.Builder import Text.Pandoc +import Text.Pandoc.Error import Data.List (intersperse) import Data.Monoid (mempty, mconcat) import Text.Pandoc.Readers.Txt2Tags t2t :: String -> Pandoc -t2t s = readTxt2Tags (T2TMeta "date" "mtime" "in" "out") def s +t2t = handleError . readTxt2Tags (T2TMeta "date" "mtime" "in" "out") def infix 4 =: (=:) :: ToString c |