diff options
| -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" |