mirror of
https://github.com/xmonad/xmonad.git
synced 2025-07-31 04:01:52 -07:00
refactor trace.
This commit is contained in:
@@ -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
|
||||
|
Reference in New Issue
Block a user