diff --git a/example/example.cabal b/example/example.cabal
--- a/example/example.cabal
+++ b/example/example.cabal
@@ -15,7 +15,7 @@
   build-depends:
       base == 4.*
     , example
-    , hspec
+    , hspec >= 1.5.0
     , hspec-jenkins
   hs-source-dirs: test
   ghc-options: -Wall -W
diff --git a/example/test/test.hs b/example/test/test.hs
--- a/example/test/test.hs
+++ b/example/test/test.hs
@@ -37,6 +37,6 @@
         exn `shouldThrow` anyIOException
   describe "foo" $ do
     it "bar" $ do
-      pending "baz"
+      pendingWith "baz"
     it "hoge" $ do
       pending
diff --git a/hspec-jenkins.cabal b/hspec-jenkins.cabal
--- a/hspec-jenkins.cabal
+++ b/hspec-jenkins.cabal
@@ -1,5 +1,5 @@
 name: hspec-jenkins
-version: 0.1.0
+version: 0.1.1
 synopsis: Jenkins-friendly XML formatter for Hspec
 description: Jenkins-friendly XML formatter for Hspec
 author: Kohei Suzuki
diff --git a/lib/Test/Hspec/Formatters/Jenkins.hs b/lib/Test/Hspec/Formatters/Jenkins.hs
--- a/lib/Test/Hspec/Formatters/Jenkins.hs
+++ b/lib/Test/Hspec/Formatters/Jenkins.hs
@@ -19,7 +19,7 @@
   An example project is located in @example@ directory.
 -}
 
-{-# LANGUAGE RecordWildCards, OverloadedStrings #-}
+{-# LANGUAGE OverloadedStrings #-}
 module Test.Hspec.Formatters.Jenkins (xmlFormatter) where
 import Data.List (intercalate)
 import Test.Hspec.Formatters
@@ -41,26 +41,23 @@
 
 -- | Format Hspec result to Jenkins-friendly XML.
 xmlFormatter :: Formatter
-xmlFormatter = Formatter{..}
-  where
+xmlFormatter = silent {
     headerFormatter = do
       writeLine "<?xml version='1.0' encoding='UTF-8'?>"
       writeLine "<testsuite>"
-    exampleGroupStarted _ _ _ = return ()
-    exampleGroupDone = return ()
-    exampleSucceeded path = do
+  , exampleSucceeded = \path -> do
       writeLine $ renderMarkup $
         testcase path ""
-    exampleFailed path err = do
+  , exampleFailed = \path err -> do
       writeLine $ renderMarkup $
         testcase path $
           failure ! message (either formatException id err) $ ""
-    examplePending path mdesc = do
+  , examplePending = \path mdesc -> do
       writeLine $ renderMarkup $
         testcase path $
           case mdesc of
             Just desc -> skipped ! message desc  $ ""
             Nothing -> skipped ""
-    failedFormatter = return ()
-    footerFormatter = do
+  , footerFormatter = do
       writeLine "</testsuite>"
+  }