From f052993e0749f719bcb05ff34e83fca3b26db4f7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jan=20Hamal=20Dvo=C5=99=C3=A1k?= <mordae@anilinux.org>
Date: Fri, 13 Mar 2020 01:02:28 +0100
Subject: [PATCH] Remote unused piece of code
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Signed-off-by: Jan Hamal Dvořák <mordae@anilinux.org>
---
lib/Hikaru/Form.hs | 16 ----------------
1 file changed, 16 deletions(-)
diff --git a/lib/Hikaru/Form.hs b/lib/Hikaru/Form.hs
index d85a4a4..3a09603 100644
--- a/lib/Hikaru/Form.hs
+++ b/lib/Hikaru/Form.hs
@@ -262,22 +262,6 @@ where
-- |
-- TODO
--
-{-
- csrfTokenField :: (MonadCsrf m) => l -> Form l m Text
- csrfTokenField msg = Form do
- token <- generateToken
-
- unForm $ hiddenField "_token" (Just token) do
- whenChecking do
- value <- fromMaybe "" <$> fieldValue
- valid <- isTokenValid value
-
- if valid
- then return ()
- else addNote $ NoteError msg
--}
-
-
csrfTokenField :: (MonadCsrf m) => l -> Form l m Text
csrfTokenField msg = Form do
Env{envCheck} <- ask
--
GitLab