summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--Plugins/PipeReader.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/Plugins/PipeReader.hs b/Plugins/PipeReader.hs
index 8fa2e8e..695f1e6 100644
--- a/Plugins/PipeReader.hs
+++ b/Plugins/PipeReader.hs
@@ -17,12 +17,12 @@ module Plugins.PipeReader where
import System.IO
import Plugins
-data PipeReader = PipeReader String
+data PipeReader = PipeReader String String
deriving (Read, Show)
instance Exec PipeReader where
- alias (PipeReader p) = p
- start (PipeReader p) cb = do
+ alias (PipeReader _ a) = a
+ start (PipeReader p _) cb = do
h <- openFile p ReadMode
forever (hGetLine h >>= cb)
where forever a = a >> forever a