From 45871126865cf04e471803e3f908fa23e2f00e14 Mon Sep 17 00:00:00 2001
From: Snoyman <snoyman@snoytop-karmic.(none)>
Date: Wed, 10 Mar 2010 09:27:16 -0800
Subject: [PATCH] Removed usage of liftString (compat with 6.10)

---
 Yesod/Resource.hs | 5 ++---
 yesod.cabal       | 2 +-
 2 files changed, 3 insertions(+), 4 deletions(-)

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 <michael@snoyman.com>