yesod 0.0.0 → 0.0.0.1

raw patch · 2 files changed

+3/−4 lines, 2 files

Files

Yesod/Resource.hs +2/−3
yesod.cabal +1/−1

Yesod/Resource.hs view

@@ -389,9 +389,8 @@ 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 view

@@ -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>