diff --git a/Network/HTTP/Conduit.hs b/Network/HTTP/Conduit.hs
--- a/Network/HTTP/Conduit.hs
+++ b/Network/HTTP/Conduit.hs
@@ -49,6 +49,7 @@
 -- > import Data.Time.Clock
 -- > import Data.Time.Calendar
 -- > import qualified Control.Exception as E
+-- > import Network.HTTP.Types.Status (statusCode)
 -- >
 -- > past :: UTCTime
 -- > past = UTCTime (ModifiedJulianDay 56200) (secondsToDiffTime 0)
@@ -73,9 +74,9 @@
 -- > main = withSocketsDo $ do
 -- >      request' <- parseUrl "http://example.com/secret-page"
 -- >      let request = request' { cookieJar = Just $ createCookieJar [cookie] }
--- >      E.catch (withManager $ httpLbs request)
+-- >      (fmap Just (withManager $ httpLbs request)) `E.catch`
 -- >              (\(StatusCodeException s _ _) ->
--- >                if statusCode==403 then putStrLn "login failed" else return ())
+-- >                if statusCode s==403 then (putStrLn "login failed" >> return Nothing) else return Nothing)
 --
 -- Any network code on Windows requires some initialization, and the network
 -- library provides withSocketsDo to perform it. Therefore, proper usage of
diff --git a/http-conduit.cabal b/http-conduit.cabal
--- a/http-conduit.cabal
+++ b/http-conduit.cabal
@@ -1,5 +1,5 @@
 name:            http-conduit
-version:         2.1.4
+version:         2.1.4.1
 license:         BSD3
 license-file:    LICENSE
 author:          Michael Snoyman <michael@snoyman.com>