haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Removed unnecesary code from Auth

Browse Source
This commit is contained in:
Michael Snoyman 2010-01-05 22:46:58 +02:00
parent db1d0b306a
commit f21db91a0f
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Yesod/Helpers/Auth.hs
View File

@ -26,7 +26,7 @@ import qualified Web.Authenticate.OpenId as OpenId
import Yesod import Yesod
import Yesod.Constants import Yesod.Constants
import Control.Applicative ((<$>), Applicative (..)) import Control.Applicative ((<$>))
import Control.Monad.Attempt import Control.Monad.Attempt
import Data.Maybe (fromMaybe) import Data.Maybe (fromMaybe)
@ -126,11 +126,6 @@ authOpenidComplete = do
redirect $ fromMaybe "/" dest redirect $ fromMaybe "/" dest
attempt onFailure onSuccess res attempt onFailure onSuccess res
-- | token dest
chopHash :: String -> String
chopHash ('#':rest) = rest
chopHash x = x
rpxnowLogin :: YesodAuth y => Handler y HtmlObject rpxnowLogin :: YesodAuth y => Handler y HtmlObject
rpxnowLogin = do rpxnowLogin = do
ay <- getYesod ay <- getYesod