1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-27 19:24:52 +09:00

First ticket number should be 1, not 0

This commit is contained in:
fr33domlover 2016-05-01 11:05:56 +00:00
parent bc17dc78dd
commit 349d089019
2 changed files with 2 additions and 2 deletions

View file

@ -45,7 +45,7 @@ Project
sharer SharerId
name Text Maybe
desc Text Maybe
nextTicket Int default='0'
nextTicket Int default='1'
UniqueProject ident sharer

View file

@ -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