yogsototh/lish
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

better error message

Browse source
This commit is contained in:
Yann Esposito (Yogsototh) 2017-03-04 21:28:20 +01:00
parent 3cc7d380d1
commit 2d693770d7
Signed by untrusted user who does not match committer: yogsototh
GPG key ID: 7B19A4C650D59646
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Lish/Eval.hs
View file

@ -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)