diff options
Diffstat (limited to 'src/Xmobar/Run')
| -rw-r--r-- | src/Xmobar/Run/Command.hs | 5 | 
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Xmobar/Run/Command.hs b/src/Xmobar/Run/Command.hs index e6153c1..430d142 100644 --- a/src/Xmobar/Run/Command.hs +++ b/src/Xmobar/Run/Command.hs @@ -20,8 +20,7 @@ module Xmobar.Run.Command where  import Control.Exception (handle, SomeException(..))  import System.Process  import System.Exit -import System.IO (hClose) -import Xmobar.System.Utils (hGetLineSafe) +import System.IO (hClose, hGetLine)  import Xmobar.Run.Exec @@ -47,7 +46,7 @@ instance Exec Command where                  exit <- waitForProcess p                  let closeHandles = hClose o >> hClose i >> hClose e                      getL = handle (\(SomeException _) -> return "") -                                  (hGetLineSafe o) +                                  (hGetLine o)                  case exit of                    ExitSuccess -> do str <- getL                                      closeHandles  | 
