diff --git a/.gitmodules b/.gitmodules index 1afb9379..06461f96 100644 --- a/.gitmodules +++ b/.gitmodules @@ -12,7 +12,7 @@ url = https://github.com/snoyberg/xml [submodule "crypto-conduit"] path = crypto-conduit - url = https://github.com/snoyberg/crypto-conduit + url = https://github.com/snoyberg/crypto-conduit.git [submodule "yaml"] path = yaml url = https://github.com/snoyberg/yaml diff --git a/authenticate b/authenticate new file mode 160000 index 00000000..c61c883b --- /dev/null +++ b/authenticate @@ -0,0 +1 @@ +Subproject commit c61c883be061b86d38b87f4da302a76074c21956 diff --git a/crypto-conduit b/crypto-conduit new file mode 160000 index 00000000..26697093 --- /dev/null +++ b/crypto-conduit @@ -0,0 +1 @@ +Subproject commit 26697093384afe848b834270c58229dac822f70d diff --git a/package-list.sh b/package-list.sh index c461efb3..aa52f2ba 100644 --- a/package-list.sh +++ b/package-list.sh @@ -3,6 +3,8 @@ pkgs=( ./yesod-routes ./yesod-core ./yesod-json + ./crypto-conduit + ./authenticate/authenticate ./yesod-static ./yesod-persistent ./yesod-newsfeed diff --git a/yesod-auth/Yesod/Auth.hs b/yesod-auth/Yesod/Auth.hs index 93e8445e..ac93eec7 100644 --- a/yesod-auth/Yesod/Auth.hs +++ b/yesod-auth/Yesod/Auth.hs @@ -27,8 +27,6 @@ module Yesod.Auth , AuthException (..) ) where -#include "qq.h" - import Control.Monad (when) import Control.Monad.Trans.Maybe @@ -132,7 +130,7 @@ mkYesodSub "Auth" [ ClassP ''YesodAuth [VarT $ mkName "master"] ] #define STRINGS *Texts - [QQ(parseRoutes)| + [parseRoutes| /check CheckR GET /login LoginR GET /logout LogoutR GET POST @@ -151,7 +149,7 @@ setCreds doRedirects creds = do Nothing -> when doRedirects $ do case authRoute y of - Nothing -> do rh <- defaultLayout $ addHtml [QQ(shamlet)|
Logged in. diff --git a/yesod-auth/Yesod/Auth/BrowserId.hs b/yesod-auth/Yesod/Auth/BrowserId.hs index 9b8fd429..7552af44 100644 --- a/yesod-auth/Yesod/Auth/BrowserId.hs +++ b/yesod-auth/Yesod/Auth/BrowserId.hs @@ -16,8 +16,6 @@ import Data.Maybe (fromMaybe) import Control.Monad.IO.Class (liftIO) import Control.Exception (throwIO) -#include "qq.h" - pid :: Text pid = "browserid" @@ -64,7 +62,7 @@ helper maudience = AuthPlugin _ -> notFound , apLogin = \toMaster -> do addScriptRemote browserIdJs - addHamlet [QQ(hamlet)| + addHamlet [hamlet|