sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-28 09:34:51 +09:00
Code Issues 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
encodeRouteLocal <- getEncodeRouteLocal
let encodeRecipRoute = l2f hDest . encodeRouteLocal
now <- liftIO getCurrentTime
shrAuthor <- do
Entity _ p <- requireVerifiedAuth
lift $ runDB $ sharerIdent <$> get404 (personIdent p)
@ -195,7 +194,7 @@ postTopReply hDest recips context replyP after = do
}
, noteReplyTo = Just uContext
, noteContext = Just uContext
, notePublished = Just now
, notePublished = Nothing
, noteContent = msg
}
ExceptT $ handleOutboxNote hLocal note
@ -239,7 +238,6 @@ postReply hDest recips context replyG replyP after getdid midParent = do
encodeRouteFed <- getEncodeRouteFed
encodeRouteLocal <- getEncodeRouteLocal
let encodeRecipRoute = l2f hDest . encodeRouteLocal
now <- liftIO getCurrentTime
(shrAuthor, uParent) <- do
Entity _ p <- requireVerifiedAuth
lift $ runDB $ do
@ -273,7 +271,7 @@ postReply hDest recips context replyG replyP after getdid midParent = do
}
, noteReplyTo = Just uParent
, noteContext = Just uContext
, notePublished = Just now
, notePublished = Nothing
, noteContent = msg
}
ExceptT $ handleOutboxNote hLocal note