haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Removed usage of liftString (compat with 6.10)

Browse Source
This commit is contained in:
Snoyman 2010-03-10 09:27:16 -08:00
parent 9acce7b4d6
commit 4587112686
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Yesod/Resource.hs
View File

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

2
yesod.cabal
View File

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