fix build and tests

This commit is contained in:
Yan Pas 2018-05-09 20:40:37 +03:00
parent a337685fe0
commit ad19166bc3
2 changed files with 4 additions and 2 deletions

View file

@ -32,6 +32,7 @@ Conversion of man to 'Pandoc' document.
-} -}
module Text.Pandoc.Readers.Man (readMan) where module Text.Pandoc.Readers.Man (readMan) where
import Prelude
import Control.Monad.Except (throwError) import Control.Monad.Except (throwError)
import Data.Default (Default) import Data.Default (Default)
import Data.Map (insert) import Data.Map (insert)

View file

@ -1,6 +1,7 @@
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
module Tests.Readers.Man (tests) where module Tests.Readers.Man (tests) where
import Prelude
import Data.Text (Text) import Data.Text (Text)
import Test.Tasty import Test.Tasty
import Tests.Helpers import Tests.Helpers
@ -23,9 +24,9 @@ tests = [
testGroup "Macros" [ testGroup "Macros" [
"Bold" =: "Bold" =:
".B foo\n" ".B foo\n"
=?> strong "foo" =?> (para $ strong "foo")
, "Italic" =: , "Italic" =:
".I foo\n" ".I foo\n"
=?> emph "foo" =?> (para $ emph "foo")
] ]
] ]