[fix for lookupEnv
John Meacham <john@repetae.net>**20050508080101] hunk ./GenUtil.hs 439
-lookupEnv s = catch (fmap return $ System.getEnv s) (\e -> if IO.isDoesNotExistError e then fail (show e) else ioError e)
+lookupEnv s = catch (fmap return $ System.getEnv s) (\e -> if IO.isDoesNotExistError e then return (fail (show e)) else ioError e)