diff --git a/Yesod/Form/MassInput.hs b/Yesod/Form/MassInput.hs index 11c3696c..3d41bb09 100644 --- a/Yesod/Form/MassInput.hs +++ b/Yesod/Form/MassInput.hs @@ -57,8 +57,7 @@ inputList :: (Monad mo, m ~ GGHandler sub master mo, xml ~ GGWidget master (GGHa inputList label fixXml single mdef = formToAForm $ do theId <- lift newIdent down 1 - --countName <- newFormIdent - let countName = "count" + countName <- newFormIdent addName <- newFormIdent (menv, _, _) <- ask let readInt t =