diff --git a/Text/Hamlet.hs b/Text/Hamlet.hs
--- a/Text/Hamlet.hs
+++ b/Text/Hamlet.hs
@@ -218,6 +218,9 @@
 xhamlet :: QuasiQuoter
 xhamlet = hamletWithSettings hamletRules xhtmlHamletSettings
 
+asHtmlUrl :: HtmlUrl url -> HtmlUrl url
+asHtmlUrl = id
+
 hamletRules :: Q HamletRules
 hamletRules = do
     i <- [|id|]
@@ -231,8 +234,9 @@
             return $ LamE [VarP r] h
     return $ HamletRules i ur em
   where
-    em (Env (Just urender) Nothing) e =
-            urender $ \ur' -> return (e `AppE` ur')
+    em (Env (Just urender) Nothing) e = do
+        asHtmlUrl' <- [|asHtmlUrl|]
+        urender $ \ur' -> return ((asHtmlUrl' `AppE` e) `AppE` ur')
     em _ _ = error "bad Env"
 
 ihamlet :: QuasiQuoter
diff --git a/hamlet.cabal b/hamlet.cabal
--- a/hamlet.cabal
+++ b/hamlet.cabal
@@ -1,5 +1,5 @@
 name:            hamlet
-version:         1.1.0.1
+version:         1.1.0.2
 license:         MIT
 license-file:    LICENSE
 author:          Michael Snoyman <michael@snoyman.com>