Temporarily restore Stdin to its previous state

1 files changed, 2 insertions, 7 deletions

diff --git a/src/Xmobar/Plugins/StdinReader.hs b/src/Xmobar/Plugins/StdinReader.hs
index ad7291e..bc4bb5f 100644
--- a/src/Xmobar/Plugins/StdinReader.hs
+++ b/src/Xmobar/Plugins/StdinReader.hs
@@ -22,21 +22,16 @@ import Prelude
 import System.Posix.Process
 import System.Exit
 import System.IO
+import Control.Exception (SomeException(..), handle)
 import Xmobar.Run.Exec
 import Xmobar.X11.Actions (stripActions)
-import Xmobar.System.Utils (onSomeException)
 
 data StdinReader = StdinReader | UnsafeStdinReader
   deriving (Read, Show)
 
 instance Exec StdinReader where
   start stdinReader cb = do
-    s <-
-      getLine `onSomeException`
-      (\e -> do
-         let errorMessage = "xmobar: Received exception " <> show e
-         hPrint stderr errorMessage
-         cb errorMessage)
+    s <- handle (\(SomeException e) -> do hPrint stderr e; return "") getLine
     cb $ escape stdinReader s
     eof <- isEOF
     if eof