removed QQ hacks from yesod-auth-oauth

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

View File

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

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