Fix for issue #35

This commit is contained in:
Amy de Buitléir 2013-02-14 16:36:58 +00:00
parent 53d501be14
commit 506979fe13

View File

@ -74,7 +74,7 @@ failure".
|]
wait_for_return
results <- do_test_menu 1
env_attributes <- mapM ( \env_name -> catch ( Env.getEnv env_name >>= return . (,) env_name )
env_attributes <- mapM ( \env_name -> Control.Exception.catch ( Env.getEnv env_name >>= return . (,) env_name )
( \ (_ :: SomeException) -> return (env_name, "") )
)
[ "TERM", "COLORTERM", "LANG", "TERM_PROGRAM", "XTERM_VERSION" ]