diff options
Diffstat (limited to 'src/Xmobar')
| -rw-r--r-- | src/Xmobar/Plugins/StdinReader.hs | 9 | 
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 | 
