diff options
| -rw-r--r-- | src/Plugins/MarqueePipeReader.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Plugins/MarqueePipeReader.hs b/src/Plugins/MarqueePipeReader.hs index babcfb6..8120c84 100644 --- a/src/Plugins/MarqueePipeReader.hs +++ b/src/Plugins/MarqueePipeReader.hs @@ -24,9 +24,9 @@ import Control.Monad(forever, unless) type Length = Int -- length of the text to display type Rate = Int -- delay in tenth seconds -type Seperator = String -- if text wraps around, use separator +type Separator = String -- if text wraps around, use separator -data MarqueePipeReader = MarqueePipeReader String (Length, Rate, Seperator) String +data MarqueePipeReader = MarqueePipeReader String (Length, Rate, Separator) String deriving (Read, Show) instance Exec MarqueePipeReader where @@ -50,7 +50,7 @@ pipeToChan h chan = do line <- hGetLineSafe h atomically $ writeTChan chan line -writer :: String -> Seperator -> Length -> Rate -> TChan String -> (String -> IO ()) -> IO () +writer :: String -> Separator -> Length -> Rate -> TChan String -> (String -> IO ()) -> IO () writer txt sep len rate chan cb = do cb (take len txt) mbnext <- atomically $ tryReadTChan chan |