From dacf87b9dfde0ae6083d4155627896638dc8741c Mon Sep 17 00:00:00 2001 From: John Goerzen Date: Tue, 16 Sep 2008 07:26:56 +0200 Subject: Fixed build error darcs-hash:20080916052656-c2a52-d7ded9a6324e6611824aa77795c4a8bf2dbb9ccf.gz --- Plugins/CommandReader.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- cgit v1.2.3