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