forge/Vervis
1
0
Fork 0
Code Pull requests Activity

When publishing a comment via PublishR, don't specify 'published' time

Browse source 
The server expects not to see it, and wants to set it by itself
This commit is contained in:
fr33domlover 2019-05-07 03:12:47 +00:00
parent 0e4070db75
commit ddb6bb0472
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Vervis/Handler/Inbox.hs
View file

@ -326,8 +326,7 @@ postOutboxR shrAuthor = do
encodeRouteLocal <- getEncodeRouteLocal encodeRouteLocal <- getEncodeRouteLocal
let encodeRecipRoute = l2f hTicket . encodeRouteLocal let encodeRecipRoute = l2f hTicket . encodeRouteLocal
uTicket = encodeRecipRoute $ TicketR shrTicket prj num uTicket = encodeRecipRoute $ TicketR shrTicket prj num
now <- liftIO getCurrentTime (hLocal, luAuthor) = f2l $ encodeRouteFed $ SharerR shrAuthor
let (hLocal, luAuthor) = f2l $ encodeRouteFed $ SharerR shrAuthor
recips = recips =
[ ProjectR shrTicket prj [ ProjectR shrTicket prj
, TicketParticipantsR shrTicket prj num , TicketParticipantsR shrTicket prj num
@ -345,7 +344,7 @@ postOutboxR shrAuthor = do
} }
, noteReplyTo = Just $ fromMaybe uTicket muParent , noteReplyTo = Just $ fromMaybe uTicket muParent
, noteContext = Just uTicket , noteContext = Just uTicket
, notePublished = Just now , notePublished = Nothing
, noteContent = msg , noteContent = msg
} }
ExceptT $ handleOutboxNote hLocal note ExceptT $ handleOutboxNote hLocal note