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

Fix warnings in Text.Pandoc.Process.

Browse source
This commit is contained in:
John MacFarlane 2018-11-30 08:32:04 -08:00
parent fe98c97b1c
commit 84a447a88b
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/Text/Pandoc/Process.hs
View file

@ -77,8 +77,11 @@ pipeProcess mbenv cmd args input = do
} }
withCreateProcess cp_opts $ withCreateProcess cp_opts $
\mbInh mbOuth _ pid -> do \mbInh mbOuth _ pid -> do
let Just inh = mbInh let (inh, outh) =
Just outh = mbOuth case (mbInh, mbOuth) of
(Just i, Just o) -> (i, o)
(Nothing, _) -> error "withCreateProcess no inh"
(_, Nothing) -> error "withCreateProcess no outh"
out <- BL.hGetContents outh out <- BL.hGetContents outh