diff --git a/Test/Hspec/WebDriver.hs b/Test/Hspec/WebDriver.hs
--- a/Test/Hspec/WebDriver.hs
+++ b/Test/Hspec/WebDriver.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE OverloadedStrings, FlexibleInstances, DeriveDataTypeable, TypeFamilies, GeneralizedNewtypeDeriving #-}
+{-# LANGUAGE CPP, OverloadedStrings, FlexibleInstances, DeriveDataTypeable, TypeFamilies, GeneralizedNewtypeDeriving #-}
 -- | Write hspec tests that are webdriver tests, automatically managing the webdriver sessions.
 --
 -- This module re-exports functions from "Test.Hspec" and "Test.WebDriver.Commands" and it is
@@ -253,7 +253,11 @@
         proc cap = mapSpecItem addCatchResult . I.session (createSt sess cap) closeSt
 
         addCatchResult item = item {
+#if MIN_VERSION_hspec(1,10,0)
+            itemExample = \p a prog -> itemExample item p a prog
+#else
             itemExample = \p a -> itemExample item p a
+#endif
                                     `catch` \PrevHasError -> return $ Pending $ Just "previous example had error" }
 
 -- | An example that can be passed to 'it' containing a webdriver action.  It must be created with
diff --git a/Test/Hspec/WebDriver/Internal.hs b/Test/Hspec/WebDriver/Internal.hs
--- a/Test/Hspec/WebDriver/Internal.hs
+++ b/Test/Hspec/WebDriver/Internal.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE DeriveDataTypeable, RankNTypes, FlexibleContexts, ScopedTypeVariables  #-}
+{-# LANGUAGE CPP, DeriveDataTypeable, RankNTypes, FlexibleContexts, ScopedTypeVariables  #-}
 module Test.Hspec.WebDriver.Internal (
   -- * State Sessions
     session
@@ -11,16 +11,26 @@
 import Control.Concurrent.MVar
 import Control.Monad.Trans.State (state, evalState, execState, execStateT, StateT)
 import Data.Traversable (traverse)
-import Data.Typeable (Typeable(..), cast)
+import Data.Typeable (Typeable, cast)
 import System.IO.Unsafe (unsafePerformIO)
 import Test.Hspec
+#if MIN_VERSION_hspec(1,10,0)
+import Test.Hspec.Core hiding (describe, it)
+#else
 import Test.Hspec.Core hiding (describe, it, hspec)
+#endif
 
 import qualified Control.Exception as E
 
+#if MIN_VERSION_hspec(1,10,0)
 traverseTree :: Applicative f => (Item -> f Item) -> SpecTree -> f SpecTree
+traverseTree f (SpecItem msg i) = SpecItem msg <$> f i
+traverseTree f (SpecGroup msg ss) = SpecGroup msg <$> traverse (traverseTree f) ss
+#else
+traverseTree :: Applicative f => (Item -> f Item) -> SpecTree -> f SpecTree
 traverseTree f (SpecItem i) = SpecItem <$> f i
 traverseTree f (SpecGroup msg ss) = SpecGroup msg <$> traverse (traverseTree f) ss
+#endif
 
 traverseSpec :: Applicative f => (Item -> f Item) -> Spec -> f Spec
 traverseSpec f s = fromSpecList <$> traverse (traverseTree f) (runSpecM s)
@@ -49,7 +59,11 @@
 -- to 'session' or the types @s@ do not match, the example will fail.
 data SessionExample s = SessionExample (s -> IO s)
 instance Typeable a => Example (SessionExample a) where
+#if MIN_VERSION_hspec(1,10,0)
+    evaluateExample (SessionExample f) _ act _ = E.throwIO $ SessionTest act f
+#else
     evaluateExample (SessionExample f) _ act = E.throwIO $ SessionTest act f
+#endif
 
 data Session a = Session {
     sessionCount :: Int
@@ -59,7 +73,12 @@
 }
 
 sessionItem :: Typeable a => Session a -> Int -> Item -> Item
-sessionItem sess i item = item { itemExample = \p a -> runTest $ itemExample item p a }
+sessionItem sess i item =
+#if MIN_VERSION_hspec(1,10,0)
+        item { itemExample = \p a prog -> runTest $ itemExample item p a prog }
+#else
+        item { itemExample = \p a -> runTest $ itemExample item p a }
+#endif
     where
         open | i == 0 = E.try $ sessionCreate sess
              | otherwise = takeMVar $ sessionMVars sess !! i
diff --git a/hspec-webdriver.cabal b/hspec-webdriver.cabal
--- a/hspec-webdriver.cabal
+++ b/hspec-webdriver.cabal
@@ -1,5 +1,5 @@
 name:              hspec-webdriver
-version:           0.2.1
+version:           0.2.2
 cabal-version:     >= 1.8
 build-type:        Simple
 synopsis:          Write end2end web application tests using webdriver and hspec