From 16d1240ab8cd2502400c5ef1e4434654df8a2e1c Mon Sep 17 00:00:00 2001 From: jao Date: Sun, 17 May 2020 23:44:49 +0100 Subject: Temporarily restore Stdin to its previous state --- src/Xmobar/Plugins/StdinReader.hs | 9 ++------- 1 file 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 -- cgit v1.2.3