diff options
Diffstat (limited to 'test/Tests/Command.hs')
| -rw-r--r-- | test/Tests/Command.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/Tests/Command.hs b/test/Tests/Command.hs index e0c5a8408..ac5050163 100644 --- a/test/Tests/Command.hs +++ b/test/Tests/Command.hs @@ -100,8 +100,8 @@ runCommandTest pandocpath num code = extractCommandTest :: FilePath -> FilePath -> TestTree extractCommandTest pandocpath fp = unsafePerformIO $ do contents <- UTF8.toText <$> BS.readFile ("command" </> fp) - Pandoc _ blocks <- runIOorExplode (readMarkdown - def{ readerExtensions = pandocExtensions } contents) + Pandoc _ blocks <- runIOorExplode $ + readMarkdown def{ readerExtensions = pandocExtensions } contents let codeblocks = map extractCode $ filter isCodeBlock blocks let cases = zipWith (runCommandTest pandocpath) [1..] codeblocks return $ testGroup fp cases |