removed QQ hacks from yesod-auth-oauth
This commit is contained in:
parent
a3c307070c
commit
e4e2dd75cc
@ -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
|
||||
|
||||
@ -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
|
||||
Loading…
Reference in New Issue
Block a user