summaryrefslogtreecommitdiffhomepage
path: root/src/Plugins
diff options
context:
space:
mode:
authorReto Hablützel <rethab@rethab.ch>2014-08-09 20:42:45 +0200
committerReto Hablützel <rethab@rethab.ch>2014-08-09 20:42:45 +0200
commita94bc0849d7483b723bf750c4febe2be9ede99bc (patch)
tree80b22a973a02c2dee8b2571870f725595b400e12 /src/Plugins
parent56b31659dfb6dffc166b4e9645cfa825996cb3cb (diff)
downloadxmobar-a94bc0849d7483b723bf750c4febe2be9ede99bc.tar.gz
xmobar-a94bc0849d7483b723bf750c4febe2be9ede99bc.tar.bz2
typo: seperator --> separator
Diffstat (limited to 'src/Plugins')
-rw-r--r--src/Plugins/MarqueePipeReader.hs6
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