From b15bb7c20b11a9f148c4757caba7167ee66492fc Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Tue, 19 May 2020 19:38:59 +0100
Subject: hlinting

---
 src/Xmobar/Plugins/StdinReader.hs | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'src/Xmobar')

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
-- 
cgit v1.2.3