Removed unnecesary code from Auth

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