Ticket assignee field

config/models

@@ -117,16 +117,17 @@ Repo
     UniqueRepo ident sharer
 
 Ticket
-    project ProjectId
+    project  ProjectId
-    number  Int
+    number   Int
-    created UTCTime
+    created  UTCTime
-    creator PersonId
+    creator  PersonId
-    title   Text
+    title    Text
-    desc    Text -- Assume this is Pandoc Markdown
+    desc     Text -- Assume this is Pandoc Markdown
-    done    Bool
+    assignee PersonId     Maybe
-    closed  UTCTime
+    done     Bool
-    closer  PersonId
+    closed   UTCTime
-    discuss DiscussionId
+    closer   PersonId
+    discuss  DiscussionId
 
     UniqueTicket project number
 

src/Vervis/Form/Ticket.hs

@@ -70,6 +70,7 @@ editTicketAForm ticket pid = fmap fixDone $ Ticket
             "Description (Markdown)"
             (Just $ Just $ Textarea $ ticketDesc ticket)
         )
+    <*> pure (ticketAssignee ticket)
     <*> areq checkBoxField "Done*" (Just $ ticketDone ticket)
     <*> now
     <*> pure (ticketCloser ticket)

src/Vervis/Handler/Ticket.hs

@@ -40,6 +40,7 @@ import Data.Text (Text)
 import Data.Time.Calendar (Day (..))
 import Data.Time.Clock (UTCTime (..), getCurrentTime)
 import Data.Time.Format (formatTime, defaultTimeLocale)
+import Data.Traversable (for)
 import Database.Esqueleto hiding ((==.), (+=.), update)
 import Database.Persist
 import Text.Blaze.Html (Html, toHtml)
@@ -106,16 +107,17 @@ postTicketsR shar proj = do
                         }
                 did <- insert discussion
                 let ticket = Ticket
-                        { ticketProject = pid
+                        { ticketProject  = pid
-                        , ticketNumber  = projectNextTicket project
+                        , ticketNumber   = projectNextTicket project
-                        , ticketCreated = now
+                        , ticketCreated  = now
-                        , ticketCreator = author
+                        , ticketCreator  = author
-                        , ticketTitle   = ntTitle nt
+                        , ticketTitle    = ntTitle nt
-                        , ticketDesc    = ntDesc nt
+                        , ticketDesc     = ntDesc nt
-                        , ticketDone    = False
+                        , ticketAssignee = Nothing
-                        , ticketClosed  = UTCTime (ModifiedJulianDay 0) 0
+                        , ticketDone     = False
-                        , ticketCloser  = author
+                        , ticketClosed   = UTCTime (ModifiedJulianDay 0) 0
-                        , ticketDiscuss = did
+                        , ticketCloser   = author
+                        , ticketDiscuss  = did
                         }
                 insert_ ticket
                 return $ ticketNumber ticket
@@ -135,19 +137,25 @@ getTicketNewR shar proj = do
 
 getTicketR :: ShrIdent -> PrjIdent -> Int -> Handler Html
 getTicketR shar proj num = do
-    (author, closer, ticket) <- runDB $ do
+    (author, massignee, closer, ticket) <- runDB $ do
-        Entity sid _sharer <- getBy404 $ UniqueSharer shar
+        ticket <- do
-        Entity pid _project <- getBy404 $ UniqueProject proj sid
+            Entity s _ <- getBy404 $ UniqueSharer shar
-        Entity _tid ticket <- getBy404 $ UniqueTicket pid num
+            Entity p _ <- getBy404 $ UniqueProject proj s
-        person <- get404 $ ticketCreator ticket
+            Entity _ t <- getBy404 $ UniqueTicket p num
-        author <- get404 $ personIdent person
+            return t
+        author <- do
+            person <- get404 $ ticketCreator ticket
+            get404 $ personIdent person
+        massignee <- for (ticketAssignee ticket) $ \ pid -> do
+            person <- get404 pid
+            get404 $ personIdent person
         closer <-
             if ticketDone ticket
                 then do
-                    person' <- get404 $ ticketCloser ticket
+                    person <- get404 $ ticketCloser ticket
-                    get404 $ personIdent person'
+                    get404 $ personIdent person
                 else return author
-        return (author, closer, ticket)
+        return (author, massignee, closer, ticket)
     let desc = renderSourceT Markdown $ T.filter (/= '\r') $ ticketDesc ticket
         discuss =
             discussionW

templates/ticket/one.hamlet

@@ -23,6 +23,12 @@ $# <http://creativecommons.org/publicdomain/zero/1.0/>.
   Created on #{formatTime defaultTimeLocale "%F" $ ticketCreated ticket} by
   ^{personLinkW author}
 
+<p>
+  $maybe assignee <- massignee
+    Assigned to ^{personLinkW assignee}
+  $nothing
+    Not assigned
+
 <p>
   Status:
   $if ticketDone ticket