@@ -2,8 +2,8 @@
22{-# LANGUAGE OverloadedStrings #-}
33module Tests.Writers.Muse (tests) where
44
5−import Prelude
6−import Data.Text (unpack)
5+import Prelude hiding (unlines)
6+import Data.Text (Text, unlines)
77import Test.Tasty
88import Tests.Helpers
99import Text.Pandoc
@@ -15,15 +15,15 @@ defopts = def{ writerWrapText = WrapPreserve,
1515 writerExtensions = extensionsFromList [Ext_amuse,
1616 Ext_auto_identifiers] }
1717
18−muse :: (ToPandoc a) => a -> String
18+muse :: (ToPandoc a) => a -> Text
1919muse = museWithOpts defopts
2020
21−museWithOpts :: (ToPandoc a) => WriterOptions -> a -> String
22−museWithOpts opts = unpack . purely (writeMuse opts) . toPandoc
21+museWithOpts :: (ToPandoc a) => WriterOptions -> a -> Text
22+museWithOpts opts = purely (writeMuse opts) . toPandoc
2323
2424infix 4 =:
2525(=:) :: (ToString a, ToPandoc a)
26− => String -> (a, String) -> TestTree
26+ => String -> (a, Text) -> TestTree
2727(=:) = test muse
2828
2929noteLocationTestDoc :: Blocks