diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,6 +1,14 @@
 Changes
 =======
 
+Version 0.1.0.2
+---------------
+
+* Restore compatibility with GHC 7.4
+* Fix a bug in `treeExtAny`, which previously work identically to
+  `treeExtExists`
+* Improve documentation
+
 Version 0.1.0.1
 ---------------
 
diff --git a/fsnotify.cabal b/fsnotify.cabal
--- a/fsnotify.cabal
+++ b/fsnotify.cabal
@@ -1,5 +1,5 @@
 Name:                   fsnotify
-Version:                0.1.0.1
+Version:                0.1.0.2
 Author:                 Mark Dittmer <mark.s.dittmer@gmail.com>
 Maintainer:             Greg Weber <greg@gregweber.info>, Roman Cheplyaka <roma@ro-che.info>
 License:                BSD3
@@ -7,7 +7,7 @@
 Synopsis:               Cross platform library for file change notification.
 Description:            Cross platform library for file creation, modification,
                         and deletion notification. This library builds upon
-                        existing libraries for platform-specific Window, Mac,
+                        existing libraries for platform-specific Windows, Mac,
                         and Linux filesystem event notification.
 Category:               Filesystem
 Cabal-Version:          >= 1.8
diff --git a/src/System/FSNotify.hs b/src/System/FSNotify.hs
--- a/src/System/FSNotify.hs
+++ b/src/System/FSNotify.hs
@@ -213,3 +213,10 @@
   -- thread is dead). How bad is that? The alternative is to kill the
   -- handler anyway when we're cancelling.
   forkFinally (action event) $ either (throwTo us) (const $ return ())
+
+#if !MIN_VERSION_base(4,6,0)
+forkFinally :: IO a -> (Either SomeException a -> IO ()) -> IO ThreadId
+forkFinally action and_then =
+  mask $ \restore ->
+    forkIO $ try (restore action) >>= and_then
+#endif
diff --git a/src/System/FSNotify/Devel.hs b/src/System/FSNotify/Devel.hs
--- a/src/System/FSNotify/Devel.hs
+++ b/src/System/FSNotify/Devel.hs
@@ -1,18 +1,7 @@
-module System.FSNotify.Devel
-  ( treeExtAny, treeExtExists,
-    doAllEvents,
-    allEvents, existsEvents
-  ) where
-
-import Prelude hiding (FilePath)
-
-import Data.Text
-import Filesystem.Path.CurrentOS
-import System.FSNotify
--- import System.FSNotify.Path (fp)
-
--- | Example of compiling scss files with compass
+-- | Some additional functions on top of "System.FSNotify".
 --
+-- Example of compiling scss files with compass
+--
 -- @
 -- compass :: WatchManager -> FilePath -> IO ()
 -- compass man dir = do
@@ -24,10 +13,21 @@
 --  return ()
 -- @
 
--- | In the given directory tree,
--- watch for any Added and Modified events (but ignore Removed events)
--- for files with the given file extension
--- perform the given action
+module System.FSNotify.Devel
+  ( treeExtAny, treeExtExists,
+    doAllEvents,
+    allEvents, existsEvents
+  ) where
+
+import Prelude hiding (FilePath)
+
+import Data.Text
+import Filesystem.Path.CurrentOS
+import System.FSNotify
+
+-- | In the given directory tree, watch for any 'Added' and 'Modified'
+-- events (but ignore 'Removed' events) for files with the given file
+-- extension
 treeExtExists :: WatchManager
          -> FilePath -- ^ Directory to watch
          -> Text -- ^ extension
@@ -36,17 +36,18 @@
 treeExtExists man dir ext action =
   watchTree man dir (existsEvents $ flip hasExtension ext) (doAllEvents action)
 
--- | In the given directory tree,
--- for files with the given file extension
--- perform the given action
+-- | In the given directory tree, watch for any events for files with the
+-- given file extension
 treeExtAny :: WatchManager
          -> FilePath -- ^ Directory to watch
          -> Text -- ^ extension
          -> (FilePath -> IO ()) -- ^ action to run on file
          -> IO StopListening
 treeExtAny man dir ext action =
-  watchTree man dir (existsEvents $ flip hasExtension ext) (doAllEvents action)
+  watchTree man dir (allEvents $ flip hasExtension ext) (doAllEvents action)
 
+-- | Turn a 'FilePath' callback into an 'Event' callback that ignores the
+-- 'Event' type and timestamp
 doAllEvents :: Monad m => (FilePath -> m ()) -> Event -> m ()
 doAllEvents action event =
   case event of
@@ -54,6 +55,8 @@
     Modified f _ -> action f
     Removed  f _ -> action f
 
+-- | Turn a 'FilePath' predicate into an 'Event' predicate that accepts
+-- only 'Added' and 'Modified' event types
 existsEvents :: (FilePath -> Bool) -> (Event -> Bool)
 existsEvents filt event =
   case event of
@@ -61,6 +64,8 @@
     Modified f _ -> filt f
     Removed  _ _ -> False
 
+-- | Turn a 'FilePath' predicate into an 'Event' predicate that accepts
+-- any event types
 allEvents :: (FilePath -> Bool) -> (Event -> Bool)
 allEvents filt event =
   case event of
diff --git a/test/test.hs b/test/test.hs
--- a/test/test.hs
+++ b/test/test.hs
@@ -1,7 +1,6 @@
 {-# LANGUAGE OverloadedStrings, ImplicitParams, ViewPatterns #-}
 import Prelude hiding
-  ( FilePath, writeFile, writeFile, removeFile
-  , createDirectory, removeDirectory)
+  ( FilePath, writeFile, writeFile )
 import Test.Tasty
 import Test.Tasty.HUnit
 import Filesystem