Add Ticket to persistent model

config/models

@@ -45,6 +45,7 @@ Project
     sharer     SharerId
     name       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

@@ -42,6 +42,7 @@ checkIdentUnique sid = checkM $ \ ident -> do
             , 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