Rename ticketDesc to ticketSource

This commit is contained in:
fr33domlover 2019-06-03 11:02:28 +00:00
parent 5111cd9bc7
commit 17fe163c09
3 changed files with 6 additions and 4 deletions

View file

@ -1,6 +1,6 @@
{- This file is part of Vervis. {- 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. - Copying is an act of love. Please copy, reuse and share.
- -
@ -129,7 +129,7 @@ editTicketContentAForm ticket = Ticket
aopt aopt
textareaField textareaField
"Description (Markdown)" "Description (Markdown)"
(Just $ Just $ Textarea $ ticketDesc ticket) (Just $ Just $ Textarea $ ticketSource ticket)
) )
<*> pure (ticketAssignee ticket) <*> pure (ticketAssignee ticket)
<*> pure (ticketStatus ticket) <*> pure (ticketStatus ticket)

View file

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

View file

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