diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-19 04:04:36 +0100 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-19 04:04:36 +0100 |
| commit | 6bf224c0b491ad8119dccc1a53ce878f083ce069 (patch) | |
| tree | 193d95c5f3e0debfb3eed407fb74b731deb27185 /XMonad | |
| parent | d453a0add31502345c84d42defbc81d1f98c0e82 (diff) | |
| download | metatile-6bf224c0b491ad8119dccc1a53ce878f083ce069.tar metatile-6bf224c0b491ad8119dccc1a53ce878f083ce069.zip | |
Generalize recompile to MonadIO
darcs-hash:20071119030436-a5988-28b43f2f3c50476d5eda3c03196fc238c1427302
Diffstat (limited to 'XMonad')
| -rw-r--r-- | XMonad/Core.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Core.hs b/XMonad/Core.hs index e873848..27ef4f2 100644 --- a/XMonad/Core.hs +++ b/XMonad/Core.hs @@ -308,8 +308,8 @@ restart mprog resume = do -- status, any stderr produced by GHC, written to the file xmonad.errors, -- will be displayed to the user with xmessage -- -recompile :: IO () -recompile = do +recompile :: MonadIO m => m () +recompile = liftIO $ do dir <- liftM (++ "/.xmonad") getHomeDirectory let bin = dir ++ "/" ++ "xmonad" err = bin ++ ".errors" |