Add Ticket to persistent model

src/Vervis/Field/Project.hs

@@ -38,10 +38,11 @@ checkIdentTemplate =
 checkIdentUnique :: SharerId -> Field Handler Text -> Field Handler Text
 checkIdentUnique sid = checkM $ \ ident -> do
     let project = Project
-            { projectIdent  = ident
-            , projectSharer = sid
-            , projectName   = Nothing
-            , projectDesc   = Nothing
+            { projectIdent      = ident
+            , projectSharer     = sid
+            , projectName       = Nothing
+            , projectDesc       = Nothing
+            , projectNextTicket = 0
             }
     mup <- runDB $ checkUnique project
     return $ if isNothing mup

src/Vervis/Form/Project.hs

@@ -28,6 +28,7 @@ newProjectAForm sid = Project
     <*> pure sid
     <*> aopt textField "Name" Nothing
     <*> aopt textField "Description" Nothing
+    <*> pure 0
 
 newProjectForm :: SharerId -> Form Project
 newProjectForm = renderDivs . newProjectAForm