diff options
| author | Reto Hablützel <rethab@rethab.ch> | 2014-08-09 20:42:45 +0200 |
|---|---|---|
| committer | Reto Hablützel <rethab@rethab.ch> | 2014-08-09 20:42:45 +0200 |
| commit | a94bc0849d7483b723bf750c4febe2be9ede99bc (patch) | |
| tree | 80b22a973a02c2dee8b2571870f725595b400e12 | |
| parent | 56b31659dfb6dffc166b4e9645cfa825996cb3cb (diff) | |
| download | xmobar-a94bc0849d7483b723bf750c4febe2be9ede99bc.tar.gz xmobar-a94bc0849d7483b723bf750c4febe2be9ede99bc.tar.bz2 | |
typo: seperator --> separator
| -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 |