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 | f69491e732767bb1fe51ec6dec1bcbb4b7bc8fa0 (patch) | |
| tree | 193d95c5f3e0debfb3eed407fb74b731deb27185 /XMonad | |
| parent | 0835468bd266324d0b25d56fc230ebd544ce8239 (diff) | |
| download | xmonad-f69491e732767bb1fe51ec6dec1bcbb4b7bc8fa0.tar.gz xmonad-f69491e732767bb1fe51ec6dec1bcbb4b7bc8fa0.tar.xz xmonad-f69491e732767bb1fe51ec6dec1bcbb4b7bc8fa0.zip | |
Generalize recompile to MonadIO
darcs-hash:20071119030436-a5988-28b43f2f3c50476d5eda3c03196fc238c1427302.gz
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" |