diff --git a/yesod-auth-oauth/Yesod/Auth/OAuth.hs b/yesod-auth-oauth/Yesod/Auth/OAuth.hs index de531d01..3949edc5 100644 --- a/yesod-auth-oauth/Yesod/Auth/OAuth.hs +++ b/yesod-auth-oauth/Yesod/Auth/OAuth.hs @@ -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)| Login via #{name} |] + [shamlet| Login via #{name} |] authTwitter :: YesodAuth m => ByteString -- ^ Consumer Key diff --git a/yesod-auth-oauth/include/qq.h b/yesod-auth-oauth/include/qq.h deleted file mode 100644 index 6b742913..00000000 --- a/yesod-auth-oauth/include/qq.h +++ /dev/null @@ -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