gistfile1.txt

{-# LANGUAGE OverloadedStrings #-}
module Auth where

import Control.Monad.Trans (liftIO)
import Control.Exception (bracket)
import Happstack.Server
import Server
import Web.Authenticate.BrowserId (checkAssertion)
import Network.HTTP.Conduit (newManager, closeManager, def)
import Data.Text (Text)

checkBrowserId :: ServerPart (Maybe Text)
checkBrowserId = do
    assertion <- lookText' "assertion"
    liftIO $ bracket (newManager def) closeManager $ checkAssertion audience assertion

audience :: Text
audience = "http://localhost:8080/"