import Control.Exception
import Prelude hiding (catch)
import HsShellScript

main = mainwrapper $ do
   outm "RunError:"
   runprog "/bin/false" []
     `catch` (\(re::RunError) -> 
                 outm (show re))
   
   outm "\n\nIOError:" 
   (as_ioe $ runprog "/bin/false" [])
     `catch` (\(ioe::IOError) -> 
                 outm (show ioe))

   outm "\n\nEnd."