Add Ticket to persistent model

config/models

@@ -41,10 +41,11 @@ Group
     UniqueGroupIdent ident
 
 Project
-    ident  Text       --CI
+    ident      Text       --CI
-    sharer SharerId
+    sharer     SharerId
-    name   Text     Maybe
+    name       Text     Maybe
-    desc   Text     Maybe
+    desc       Text     Maybe
+    nextTicket Int            default='0'
 
     UniqueProject ident sharer
 
@@ -62,3 +63,13 @@ PersonInGroup
     group  GroupId
 
     UniquePersonInGroup person group
+
+Ticket
+    project ProjectId
+    number  Int
+    created UTCTime
+    title   Text
+    desc    Text -- Assume this is Pandoc Markdown
+    done    Bool
+
+    UniqueTicket project number

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
+            { projectIdent      = ident
-            , projectSharer = sid
+            , projectSharer     = sid
-            , projectName   = Nothing
+            , projectName       = Nothing
-            , projectDesc   = 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