Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Fix compiler warnings.

Browse source
This commit is contained in:
John MacFarlane 2022-01-21 17:28:02 -08:00
parent 9e0d146837
commit 24fa3ffddb
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
test/Tests/Command.hs
View file

@ -43,7 +43,6 @@ import Data.List (isSuffixOf)
import System.Directory
import System.Exit
import System.FilePath ((</>))
import System.IO (hPutStr, stderr)
import System.IO.Unsafe (unsafePerformIO)
import System.Process
import Test.Tasty
@ -65,10 +64,10 @@ execTest testExePath cmd inp = do
let err = unlines . map ("2> " ++) . lines $ err'
-- filter \r so the tests will work on Windows machines
let out'' = filter (/= '\r') $ err ++ out'
let out' = out'' ++ case ec of
let out = out'' ++ case ec of
ExitFailure !n -> "=> " ++ show n ++ "\n"
ExitSuccess -> ""
return (ec, out')
return (ec, out)
pandocToEmulate :: Bool -> String -> String
pandocToEmulate True ('p':'a':'n':'d':'o':'c':cs) =