@@ -77,8 +77,11 @@ pipeProcess mbenv cmd args input = do
7777 }
7878 withCreateProcess cp_opts $
7979 \mbInh mbOuth _ pid -> do
80− let Just inh = mbInh
81− Just outh = mbOuth
80+ let (inh, outh) =
81+ case (mbInh, mbOuth) of
82+ (Just i, Just o) -> (i, o)
83+ (Nothing, _) -> error "withCreateProcess no inh"
84+ (_, Nothing) -> error "withCreateProcess no outh"
8285
8386 out <- BL.hGetContents outh
8487