diff --git a/Handler/Activate.hs b/Handler/Activate.hs index 5f31037..f18f1c7 100644 --- a/Handler/Activate.hs +++ b/Handler/Activate.hs @@ -32,7 +32,7 @@ getActivateR token = do $(widgetFile "activate") _ -> do setMessage "Invalid token!" - redirect $ ActivateR token + redirect $ HomeR postActivateR :: Text -> Handler RepJson postActivateR token = do