diff options
| -rw-r--r-- | XMonad/Core.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Core.hs b/XMonad/Core.hs index 9ef7972..e88082d 100644 --- a/XMonad/Core.hs +++ b/XMonad/Core.hs @@ -292,4 +292,4 @@ whenX a f = a >>= \b -> when b f -- | A 'trace' for the X monad. Logs a string to stderr. The result may -- be found in your .xsession-errors file trace :: MonadIO m => String -> m () -trace msg = liftIO $ do hPutStrLn stderr msg; hFlush stderr +trace = liftIO . hPutStrLn stderr |