fix some non-exhaustive pattern matches

Author: stepcut

src/Happstack/Authenticate/Password/URL.hs

@@ -49,7 +49,6 @@ data PasswordURL
   | Account (Maybe (UserId, AccountURL))
   | PasswordRequestReset
   | PasswordReset
-  | UsernamePasswordCtrl
   deriving (Eq, Ord, Data, Typeable, Generic)
 
 makeBoomerangs ''PasswordURL
@@ -60,7 +59,6 @@ passwordURL =
   <> "account" </> rAccount . rMaybe (rPair . (rUserId . integer) </> accountURL)
   <> "password-request-reset" . rPasswordRequestReset
   <> "password-reset"         . rPasswordReset
-  <> "js" </> rUsernamePasswordCtrl
   )
 
 instance PathInfo PasswordURL where

src/Happstack/Authenticate/Route.hs

@@ -40,6 +40,7 @@ route authenticationHandlers authenticateState authenticateConfigTV url =
          case Map.lookup authenticationMethod authenticationHandlers of
            (Just handler) -> handler pathInfo
            Nothing        -> notFound $ toJSONError (HandlerNotFound {- authenticationMethod-} ) --FIXME
+       (AuthenticationMethods Nothing) -> notFound $ toJSONError HandlerNotFound
        HappstackAuthenticateClient ->
          do ac <- liftIO $ atomically $ readTVar authenticateConfigTV
             case _happstackAuthenticateClientPath ac of