Rename ticketDesc to ticketSource

src/Vervis/Form/Ticket.hs

@@ -1,6 +1,6 @@
 {- This file is part of Vervis.
  -
- - Written in 2016 by fr33domlover <fr33domlover@riseup.net>.
+ - Written in 2016, 2019 by fr33domlover <fr33domlover@riseup.net>.
  -
  - ♡ Copying is an act of love. Please copy, reuse and share.
  -
@@ -129,7 +129,7 @@ editTicketContentAForm ticket = Ticket
           aopt
             textareaField
             "Description (Markdown)"
-            (Just $ Just $ Textarea $ ticketDesc ticket)
+            (Just $ Just $ Textarea $ ticketSource ticket)
         )
     <*> pure (ticketAssignee ticket)
     <*> pure (ticketStatus ticket)

src/Vervis/Handler/Ticket.hs

@@ -153,7 +153,7 @@ postTicketsR shar proj = do
                         , ticketCreated  = now
                         , ticketCreator  = author
                         , ticketTitle    = ntTitle nt
-                        , ticketDesc     = ntDesc nt
+                        , ticketSource   = ntDesc nt
                         , ticketAssignee = Nothing
                         , ticketStatus   = TSNew
                         , ticketClosed   = UTCTime (ModifiedJulianDay 0) 0
@@ -253,7 +253,7 @@ getTicketR shar proj num = do
                 , deps, rdeps
                 )
     encodeHid <- getEncodeKeyHashid
-    let desc = renderSourceT Markdown $ T.filter (/= '\r') $ ticketDesc ticket
+    let desc = renderSourceT Markdown $ T.filter (/= '\r') $ ticketSource ticket
         discuss =
             discussionW
                 (return $ ticketDiscuss ticket)

src/Vervis/Migration.hs

@@ -511,6 +511,8 @@ changes hLocal ctx =
                             [ Message201906Source  =. source
                             , Message201906Content =. content
                             ]
+      -- 88
+    , renameField "Ticket" "desc" "source"
     ]
 
 migrateDB :: MonadIO m => Text -> HashidsContext -> ReaderT SqlBackend m (Either Text (Int, Int))