diff --git a/Yesod/Resource.hs b/Yesod/Resource.hs index 8de66af1..f5d04d31 100644 --- a/Yesod/Resource.hs +++ b/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 diff --git a/yesod.cabal b/yesod.cabal index db40435d..95c213fe 100644 --- a/yesod.cabal +++ b/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