diff options
| -rw-r--r-- | Plugins/PipeReader.hs | 6 |
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 |