summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/Plugins/StdinReader.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Xmobar/Plugins/StdinReader.hs')
-rw-r--r--src/Xmobar/Plugins/StdinReader.hs9
1 files changed, 4 insertions, 5 deletions
diff --git a/src/Xmobar/Plugins/StdinReader.hs b/src/Xmobar/Plugins/StdinReader.hs
index 8c0c0bf..a29c1ad 100644
--- a/src/Xmobar/Plugins/StdinReader.hs
+++ b/src/Xmobar/Plugins/StdinReader.hs
@@ -25,6 +25,7 @@ import System.IO
import Xmobar.Run.Exec
import Xmobar.X11.Actions (stripActions)
import Xmobar.System.Utils (onSomeException)
+import Control.Monad (when)
data StdinReader = StdinReader | UnsafeStdinReader
deriving (Read, Show)
@@ -34,11 +35,9 @@ instance Exec StdinReader where
-- The EOF check is necessary for certain systems
-- More details here https://github.com/jaor/xmobar/issues/442
eof <- isEOF
- if eof
- then do
- hPrint stderr $ "xmobar: eof at an early stage"
- exitImmediately ExitSuccess
- else return ()
+ when eof $
+ do hPrint stderr "xmobar: eof at an early stage"
+ exitImmediately ExitSuccess
s <-
getLine `onSomeException`
(\e -> do