From b995a341484b2816ab91aaec15c98d54428bdd72 Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Thu, 27 Sep 2007 19:51:44 +0200 Subject: PipeReader: added a configurable alias darcs-hash:20070927175144-d6583-60d4a2e8923f3e8aea785283a796d52007cde3c3.gz --- Plugins/PipeReader.hs | 6 +++--- 1 file 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 -- cgit v1.2.3