From 3a83b3843db6434e9806558ea1e912055d5baf04 Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Mon, 13 Nov 2017 18:41:30 +0300 Subject: Replace "emacs" extension with "amuse" extension It makes clear that extension is related to Muse markup. --- test/Tests/Readers/Muse.hs | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) (limited to 'test/Tests/Readers') diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index 29cef09ca..b4e5dd05e 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -10,20 +10,16 @@ import Text.Pandoc import Text.Pandoc.Arbitrary () import Text.Pandoc.Builder -muse :: Text -> Pandoc -muse = purely $ \s -> do - setInputFiles ["in"] - setOutputFile (Just "out") - readMuse def s +amuse :: Text -> Pandoc +amuse = purely $ readMuse def { readerExtensions = extensionsFromList [Ext_amuse]} emacsMuse :: Text -> Pandoc -emacsMuse = purely $ readMuse def { readerExtensions = - enableExtension Ext_emacs pandocExtensions } +emacsMuse = purely $ readMuse def { readerExtensions = emptyExtensions } infix 4 =: (=:) :: ToString c => String -> (Text, c) -> TestTree -(=:) = test muse +(=:) = test amuse spcSep :: [Inlines] -> Inlines spcSep = mconcat . intersperse space -- cgit v1.2.3