better error message
This commit is contained in:
parent
3cc7d380d1
commit
2d693770d7
1 changed files with 3 additions and 1 deletions
|
@ -109,7 +109,9 @@ executeShell (Lambda args) = do
|
|||
, std_out = CreatePipe }
|
||||
case result of
|
||||
Right (_, mb_hout, _, _) -> return $ Stream mb_hout
|
||||
Left ex -> shellErr ("[shell 1/2] " <> (show (Lambda args)) <> "\n[shell 2/2] " <> show ex)
|
||||
Left ex -> shellErr ("Unknow fn or cmd: "
|
||||
<> toS cmd
|
||||
<> "\n" <> show ex)
|
||||
_ -> shellErr "empty lambda!"
|
||||
where
|
||||
trySh :: IO a -> IO (Either IOException a)
|
||||
|
|
Loading…
Reference in a new issue