From f21db91a0fa85fe98307c30bc942894d429bc806 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Tue, 5 Jan 2010 22:46:58 +0200
Subject: [PATCH] Removed unnecesary code from Auth

---
 Yesod/Helpers/Auth.hs | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

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