diff --git a/lib/Hikaru/Form.hs b/lib/Hikaru/Form.hs
index d85a4a4263dea53be52450426eedc6005caab6c3..3a096037a7ce94761584c2950b913c815f237ec3 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