From a94bc0849d7483b723bf750c4febe2be9ede99bc Mon Sep 17 00:00:00 2001 From: Reto Hablützel Date: Sat, 9 Aug 2014 20:42:45 +0200 Subject: typo: seperator --> separator --- src/Plugins/MarqueePipeReader.hs | 6 +++--- 1 file 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 -- cgit v1.2.3