From af6f0f8ec7443e811dd2fc466b860a0c4b0a8816 Mon Sep 17 00:00:00 2001 From: nek0 Date: Thu, 4 Sep 2014 03:57:33 +0200 Subject: [PATCH] loop eliminated --- Handler/Activate.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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