diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,7 @@
+0.11.1
+-----------------------------------------------------------------------------
+- Bugfix release
+
 0.11
 -----------------------------------------------------------------------------
 - Change error renderer to return text and optionally additional response
diff --git a/examples/eval-routing.hs b/examples/eval-routing.hs
--- a/examples/eval-routing.hs
+++ b/examples/eval-routing.hs
@@ -6,7 +6,7 @@
 module Main (main) where
 
 import Data.Attoparsec.ByteString.Char8
-import Data.ByteString.From
+import Data.ByteString.Conversion
 import Data.String
 import Network.HTTP.Types
 import Network.Wai
diff --git a/src/Network/Wai/Routing/Route.hs b/src/Network/Wai/Routing/Route.hs
--- a/src/Network/Wai/Routing/Route.hs
+++ b/src/Network/Wai/Routing/Route.hs
@@ -2,6 +2,7 @@
 -- License, v. 2.0. If a copy of the MPL was not distributed with this
 -- file, You can obtain one at http://mozilla.org/MPL/2.0/.
 
+{-# LANGUAGE BangPatterns        #-}
 {-# LANGUAGE GADTs               #-}
 {-# LANGUAGE OverloadedStrings   #-}
 {-# LANGUAGE ScopedTypeVariables #-}
@@ -184,8 +185,7 @@
 -- Note that @route (prepare ...)@ behaves like a WAI 'Application' generalised to
 -- arbitrary monads.
 route :: Monad m => [(ByteString, App m)] -> Request -> Continue m -> m ResponseReceived
-route rm rq k = do
-    let tr = Tree.fromList rm
+route rm = let !tr = Tree.fromList rm in \rq k ->
     case Tree.lookup tr (Tree.segments $ rawPathInfo rq) of
         Just (f, v) -> f (fromReq v (fromRequest rq)) k
         Nothing     -> k notFound
diff --git a/wai-routing.cabal b/wai-routing.cabal
--- a/wai-routing.cabal
+++ b/wai-routing.cabal
@@ -1,5 +1,5 @@
 name:                wai-routing
-version:             0.11
+version:             0.11.1
 synopsis:            Declarative routing for WAI.
 license:             OtherLicense
 license-file:        LICENSE