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

removed QQ hacks from yesod-auth-oauth

Browse Source
This commit is contained in:
Pascal Wittmann 2012-03-15 22:18:56 +01:00
parent a3c307070c
commit e4e2dd75cc
2 changed files with 2 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
yesod-auth-oauth/Yesod/Auth/OAuth.hs
View File

@ -1,4 +1,4 @@
{-# LANGUAGE CPP, QuasiQuotes, OverloadedStrings #-} {-# LANGUAGE QuasiQuotes, OverloadedStrings #-}
{-# OPTIONS_GHC -fwarn-unused-imports #-} {-# OPTIONS_GHC -fwarn-unused-imports #-}
module Yesod.Auth.OAuth module Yesod.Auth.OAuth
( authOAuth ( authOAuth
@ -10,8 +10,6 @@ module Yesod.Auth.OAuth
, module Web.Authenticate.OAuth , module Web.Authenticate.OAuth
) where ) where
#include "qq.h"
import Yesod.Auth import Yesod.Auth
import Yesod.Form import Yesod.Form
import Yesod.Handler import Yesod.Handler
@ -78,7 +76,7 @@ authOAuth oauth mkCreds = AuthPlugin name dispatch login
render <- lift getUrlRender render <- lift getUrlRender
let oaUrl = render $ tm $ oauthUrl name let oaUrl = render $ tm $ oauthUrl name
addHtml addHtml
[QQ(shamlet)| <a href=#{oaUrl}>Login via #{name} |] [shamlet| <a href=#{oaUrl}>Login via #{name} |]
authTwitter :: YesodAuth m authTwitter :: YesodAuth m
=> ByteString -- ^ Consumer Key => ByteString -- ^ Consumer Key

10
yesod-auth-oauth/include/qq.h
View File

@ -1,10 +0,0 @@
-- CPP macro which choses which quasyquotes syntax to use depending
-- on GHC version.
--
-- QQ stands for quasyquote.
#if GHC7
# define QQ(x) x
#else
# define QQ(x) $x
#endif