diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2008-01-28 06:46:51 +0100 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2008-01-28 06:46:51 +0100 |
commit | 3f73082efaaccedd6854f33f766e2e3b22009c2c (patch) | |
tree | a88bc56eaa0410e890bcb25a313665b2ce3ae23e /Main.hs | |
parent | c4846b536c9da5d419c82f4057813564df246a71 (diff) | |
download | metatile-3f73082efaaccedd6854f33f766e2e3b22009c2c.tar metatile-3f73082efaaccedd6854f33f766e2e3b22009c2c.zip |
Generalize the type of catchIO, use it in Main.hs
darcs-hash:20080128054651-a5988-263142a13a2bb7dbe0d0084456fbe29b7b603e47
Diffstat (limited to 'Main.hs')
-rw-r--r-- | Main.hs | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -16,7 +16,6 @@ module Main (main) where import XMonad -import Control.Exception (handle) import System.IO import System.Info import System.Environment @@ -31,7 +30,7 @@ import qualified Properties main :: IO () main = do args <- getArgs - let launch = handle (hPrint stderr) buildLaunch >> xmonad defaultConfig + let launch = catchIO buildLaunch >> xmonad defaultConfig case args of [] -> launch ["--resume", _] -> launch |