Fix warnings in Text.Pandoc.Process.

1 files changed, 5 insertions, 2 deletions

diff --git a/src/Text/Pandoc/Process.hs b/src/Text/Pandoc/Process.hs
index c22e85ec0..1c53f6065 100644
--- a/src/Text/Pandoc/Process.hs
+++ b/src/Text/Pandoc/Process.hs
@@ -77,8 +77,11 @@ pipeProcess mbenv cmd args input = do
                   }
     withCreateProcess cp_opts $
       \mbInh mbOuth _ pid -> do
-        let Just inh = mbInh
-            Just outh = mbOuth
+        let (inh, outh) =
+             case (mbInh, mbOuth) of
+                  (Just i, Just o) -> (i, o)
+                  (Nothing, _)     -> error "withCreateProcess no inh"
+                  (_, Nothing)     -> error "withCreateProcess no outh"
 
         out <- BL.hGetContents outh