diff --git a/Web/Routes/Quasi/TH.hs b/Web/Routes/Quasi/TH.hs
--- a/Web/Routes/Quasi/TH.hs
+++ b/Web/Routes/Quasi/TH.hs
@@ -15,6 +15,7 @@
 import Data.Either
 import Data.List
 import Data.Char (toLower)
+import qualified Data.Text
 
 data Pieces =
     SubSite
@@ -121,8 +122,9 @@
     mkBod [] = lift ([] :: [String])
     mkBod ((_, StaticPiece x):xs) = do
         x' <- lift x
+        pack <- [|Data.Text.pack|]
         xs' <- mkBod xs
-        return $ ConE (mkName ":") `AppE` x' `AppE` xs'
+        return $ ConE (mkName ":") `AppE` (pack `AppE` x') `AppE` xs'
     mkBod ((i, SinglePiece _):xs) = do
         let x' = VarE $ mkName $ "var" ++ show i
         tsp <- [|toSinglePiece|]
diff --git a/web-routes-quasi.cabal b/web-routes-quasi.cabal
--- a/web-routes-quasi.cabal
+++ b/web-routes-quasi.cabal
@@ -1,5 +1,5 @@
 name:            web-routes-quasi
-version:         0.7.0
+version:         0.7.0.1
 license:         BSD3
 license-file:    LICENSE
 author:          Michael Snoyman <michael@snoyman.com>