diff --git a/config/models b/config/models index def417b..856c225 100644 --- a/config/models +++ b/config/models @@ -45,7 +45,7 @@ Project sharer SharerId name Text Maybe desc Text Maybe - nextTicket Int default='0' + nextTicket Int default='1' UniqueProject ident sharer diff --git a/src/Vervis/Form/Project.hs b/src/Vervis/Form/Project.hs index e0286e1..5b4fb74 100644 --- a/src/Vervis/Form/Project.hs +++ b/src/Vervis/Form/Project.hs @@ -28,7 +28,7 @@ newProjectAForm sid = Project <*> pure sid <*> aopt textField "Name" Nothing <*> aopt textField "Description" Nothing - <*> pure 0 + <*> pure 1 newProjectForm :: SharerId -> Form Project newProjectForm = renderDivs . newProjectAForm