forge/Vervis
1
0
Fork 0
Code Pull requests Activity

When posting ticket comment in regular UI, don't specify published time

Browse source 
The outbox handler wants to set it, and it expects it not be set by the client.
This commit is contained in:
fr33domlover 2019-05-07 01:51:21 +00:00
parent 08ca211842
commit 9bc78bf303
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Vervis/Handler/Discussion.hs
View file

@ -177,7 +177,6 @@ postTopReply hDest recips context replyP after = do
encodeRouteFed <- getEncodeRouteFed encodeRouteFed <- getEncodeRouteFed
encodeRouteLocal <- getEncodeRouteLocal encodeRouteLocal <- getEncodeRouteLocal
let encodeRecipRoute = l2f hDest . encodeRouteLocal let encodeRecipRoute = l2f hDest . encodeRouteLocal
now <- liftIO getCurrentTime
shrAuthor <- do shrAuthor <- do
Entity _ p <- requireVerifiedAuth Entity _ p <- requireVerifiedAuth
lift $ runDB $ sharerIdent <$> get404 (personIdent p) lift $ runDB $ sharerIdent <$> get404 (personIdent p)
@ -195,7 +194,7 @@ postTopReply hDest recips context replyP after = do
} }
, noteReplyTo = Just uContext , noteReplyTo = Just uContext
, noteContext = Just uContext , noteContext = Just uContext
, notePublished = Just now , notePublished = Nothing
, noteContent = msg , noteContent = msg
} }
ExceptT $ handleOutboxNote hLocal note ExceptT $ handleOutboxNote hLocal note
@ -239,7 +238,6 @@ postReply hDest recips context replyG replyP after getdid midParent = do
encodeRouteFed <- getEncodeRouteFed encodeRouteFed <- getEncodeRouteFed
encodeRouteLocal <- getEncodeRouteLocal encodeRouteLocal <- getEncodeRouteLocal
let encodeRecipRoute = l2f hDest . encodeRouteLocal let encodeRecipRoute = l2f hDest . encodeRouteLocal
now <- liftIO getCurrentTime
(shrAuthor, uParent) <- do (shrAuthor, uParent) <- do
Entity _ p <- requireVerifiedAuth Entity _ p <- requireVerifiedAuth
lift $ runDB $ do lift $ runDB $ do
@ -273,7 +271,7 @@ postReply hDest recips context replyG replyP after getdid midParent = do
} }
, noteReplyTo = Just uParent , noteReplyTo = Just uParent
, noteContext = Just uContext , noteContext = Just uContext
, notePublished = Just now , notePublished = Nothing
, noteContent = msg , noteContent = msg
} }
ExceptT $ handleOutboxNote hLocal note ExceptT $ handleOutboxNote hLocal note