diff options
| author | John Goerzen <jgoerzen@complete.org> | 2008-09-16 07:26:56 +0200 |
|---|---|---|
| committer | John Goerzen <jgoerzen@complete.org> | 2008-09-16 07:26:56 +0200 |
| commit | dacf87b9dfde0ae6083d4155627896638dc8741c (patch) | |
| tree | 5c7d7704f9241bd12acd17b46bf934a3be789a09 | |
| parent | c8043f5f0569cd9d6fca8f1c935cc5e081e3aab8 (diff) | |
| download | xmobar-dacf87b9dfde0ae6083d4155627896638dc8741c.tar.gz xmobar-dacf87b9dfde0ae6083d4155627896638dc8741c.tar.bz2 | |
Fixed build error
darcs-hash:20080916052656-c2a52-d7ded9a6324e6611824aa77795c4a8bf2dbb9ccf.gz
| -rw-r--r-- | Plugins/CommandReader.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Plugins/CommandReader.hs b/Plugins/CommandReader.hs index b084aba..fef8a45 100644 --- a/Plugins/CommandReader.hs +++ b/Plugins/CommandReader.hs @@ -17,6 +17,7 @@ module Plugins.CommandReader where import System.IO import Plugins +import System.Process(runInteractiveCommand) data CommandReader = CommandReader String String deriving (Read, Show) @@ -24,7 +25,7 @@ data CommandReader = CommandReader String String instance Exec CommandReader where alias (CommandReader _ a) = a start (CommandReader p _) cb = do - (hstdin, hstdout, hstderr) <- runInteractiveCommand p + (hstdin, hstdout, hstderr, _) <- runInteractiveCommand p hClose hstdin hClose hstderr forever (hGetLineSafe hstdout >>= cb) |