diff --git a/lib/System/IO/TailFile.hs b/lib/System/IO/TailFile.hs
--- a/lib/System/IO/TailFile.hs
+++ b/lib/System/IO/TailFile.hs
@@ -1,4 +1,4 @@
-{-| Tail files in Unix. 
+{-| Tail files in Linux. 
 
     The functions in this module do not use any particular streaming library.
     They just accept an initial state and a monadic update function.
@@ -6,6 +6,7 @@
 
 
 {-# language NumDecimals #-}
+{-# language BangPatterns #-}
 module System.IO.TailFile (tailFile) where
 
 import Data.Foldable
@@ -75,7 +76,7 @@
                          for_ ms (\size -> if size' < size -- truncation 
                                            then hSeek h AbsoluteSeek 0
                                            else return ())
-                         a' <- drainBytes h a
+                         !a' <- drainBytes h a
                          if getAny event then return a'
                                          else go (Just size') a'
         in  go Nothing
@@ -83,6 +84,6 @@
         let go a = do c <- Data.ByteString.hGetSome h defaultChunkSize
                       if Data.ByteString.null c
                          then do return a
-                         else do a' <- callback a c
+                         else do !a' <- callback a c
                                  drainBytes h a'
         in  go
diff --git a/tailfile-hinotify.cabal b/tailfile-hinotify.cabal
--- a/tailfile-hinotify.cabal
+++ b/tailfile-hinotify.cabal
@@ -1,5 +1,5 @@
 name:                tailfile-hinotify
-version:             1.0.0.0
+version:             1.0.0.1
 synopsis:            Tail files in Unix, using hinotify. 
 description:         Tail files in Unix, using hinotify. 
 license:             MIT