1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2025-01-10 17:16:47 +09:00
vervis/src/Vervis/Form/Project.hs

35 lines
984 B
Haskell
Raw Normal View History

2016-02-23 17:28:25 +09:00
{- This file is part of Vervis.
-
- Written in 2016 by fr33domlover <fr33domlover@riseup.net>.
-
- Copying is an act of love. Please copy, reuse and share.
-
- The author(s) have dedicated all copyright and related and neighboring
- rights to this software to the public domain worldwide. This software is
- distributed without any warranty.
-
- You should have received a copy of the CC0 Public Domain Dedication along
- with this software. If not, see
- <http://creativecommons.org/publicdomain/zero/1.0/>.
-}
module Vervis.Form.Project
( newProjectForm
2016-02-23 17:28:25 +09:00
)
where
import Vervis.Import
2016-02-23 17:28:25 +09:00
import Vervis.Field.Project
2016-02-23 17:28:25 +09:00
newProjectAForm :: SharerId -> AForm Handler Project
newProjectAForm sid = Project
<$> areq (mkIdentField sid) "Identifier*" Nothing
<*> pure sid
<*> aopt textField "Name" Nothing
<*> aopt textField "Description" Nothing
2016-05-01 05:40:33 +09:00
<*> pure 0
2016-02-23 17:28:25 +09:00
newProjectForm :: SharerId -> Form Project
newProjectForm = renderDivs . newProjectAForm