diff --git a/Main.lhs b/Main.lhs
--- a/Main.lhs
+++ b/Main.lhs
@@ -6,6 +6,7 @@
 > import qualified Data.Text.IO as TIO
 > import Control.Exception
 > import System.IO.Error (IOError)
+> import qualified System.IO.Error as E
 > import Data.Time
 > import System.IO
 > import System.Locale
@@ -14,13 +15,14 @@
 > data Msg = Line T.Text
 >          | Tick
 >          | Done
+>          | Error IOError
 
 > gitLine :: IO (Either IOError T.Text)
 > gitLine = try TIO.getLine
 
 > ticksProc :: (Q.PutQueue q IO) => Int -> q Msg -> IO ()
 > ticksProc interval chan = do
->   threadDelay (interval * 10)
+>   threadDelay (interval * 100)
 >   Q.put chan $! Tick
 >   ticksProc interval chan
 
@@ -28,16 +30,21 @@
 > linesProc chan = do
 >   l <- gitLine
 >   case l of
->     Left err -> do
->       Q.put chan Done
+>     Left err 
+>       | E.isEOFError err -> do
+>         Q.put chan Done
+>       | otherwise -> do
+>         Q.put chan $ Error err
 >     Right line -> do
->       Q.put chan $! Line line
+>       Q.put chan $ Line line
 >       linesProc chan
 
 > output :: (Q.TakeQueue q IO) => T.Text -> q Msg -> IO ()
 > output state chan = do
 >   m <- Q.take chan
 >   case m of
+>     Error e ->
+>       throwIO e
 >     Done ->
 >       return ()
 >     Tick ->
@@ -54,7 +61,7 @@
 
 > main :: IO ()
 > main = do
->   chan <- newChan
+>   chan <- newEmptyMVar
 >   _ <- forkIO $ linesProc chan
 >   _ <- forkIO $ ticksProc 500 chan
 >   output "" chan
diff --git a/format-status.cabal b/format-status.cabal
--- a/format-status.cabal
+++ b/format-status.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                format-status
-version:             0.1.0.2
+version:             0.1.2.3
 synopsis:            A utility for writing the date to dzen2.
 -- description:         
 license:             MIT
@@ -19,7 +19,11 @@
   main-is:             Main.lhs
   -- other-modules:       
   other-extensions:    OverloadedStrings
-  build-depends:       base >=4.5 && <4.6, text >=1.1 && <1.2, time >=1.4 && <1.5, old-locale >=1.0.0 && <1.1.0, data-concurrent-queue == 0.3.0.0
+  build-depends:       base >=4.5 && <4.6,
+                       text >=1.1 && <1.2,
+                       time >=1.4 && <1.5,
+                       old-locale >=1.0.0 && <1.1.0,
+                       data-concurrent-queue >= 0.3.0.0 && <0.4.0.0
   -- hs-source-dirs:      
   default-language:    Haskell2010
   ghc-options:         -O2