summaryrefslogtreecommitdiffhomepage
path: root/Plugins/CommandReader.hs
diff options
context:
space:
mode:
authorJohn Goerzen <jgoerzen@complete.org>2008-09-16 07:26:56 +0200
committerJohn Goerzen <jgoerzen@complete.org>2008-09-16 07:26:56 +0200
commitdacf87b9dfde0ae6083d4155627896638dc8741c (patch)
tree5c7d7704f9241bd12acd17b46bf934a3be789a09 /Plugins/CommandReader.hs
parentc8043f5f0569cd9d6fca8f1c935cc5e081e3aab8 (diff)
downloadxmobar-dacf87b9dfde0ae6083d4155627896638dc8741c.tar.gz
xmobar-dacf87b9dfde0ae6083d4155627896638dc8741c.tar.bz2
Fixed build error
darcs-hash:20080916052656-c2a52-d7ded9a6324e6611824aa77795c4a8bf2dbb9ccf.gz
Diffstat (limited to 'Plugins/CommandReader.hs')
-rw-r--r--Plugins/CommandReader.hs3
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)