Removed usage of liftString (compat with 6.10)

Yesod/Resource.hs

@@ -389,9 +389,8 @@ liftMethod :: Method -> Q Exp
 liftMethod m = do
     cs' <- [|cs :: String -> ByteString|]
     methodFromBS' <- [|methodFromBS|]
-    let s = cs $ methodToBS m :: String
-    s' <- liftString s
-    return $ methodFromBS' `AppE` AppE cs' s'
+    let s = LitE $ StringL $ cs $ methodToBS m
+    return $ methodFromBS' `AppE` AppE cs' s
 
 strToExp :: Bool -> String -> Q Exp
 strToExp toCheck s = do

yesod.cabal

@@ -1,5 +1,5 @@
 name:            yesod
-version:         0.0.0
+version:         0.0.0.1
 license:         BSD3
 license-file:    LICENSE
 author:          Michael Snoyman <michael@snoyman.com>