diff --git a/src/Vervis/Handler/Inbox.hs b/src/Vervis/Handler/Inbox.hs index 978c5fc..c618476 100644 --- a/src/Vervis/Handler/Inbox.hs +++ b/src/Vervis/Handler/Inbox.hs @@ -326,8 +326,7 @@ postOutboxR shrAuthor = do encodeRouteLocal <- getEncodeRouteLocal let encodeRecipRoute = l2f hTicket . encodeRouteLocal uTicket = encodeRecipRoute $ TicketR shrTicket prj num - now <- liftIO getCurrentTime - let (hLocal, luAuthor) = f2l $ encodeRouteFed $ SharerR shrAuthor + (hLocal, luAuthor) = f2l $ encodeRouteFed $ SharerR shrAuthor recips = [ ProjectR shrTicket prj , TicketParticipantsR shrTicket prj num @@ -345,7 +344,7 @@ postOutboxR shrAuthor = do } , noteReplyTo = Just $ fromMaybe uTicket muParent , noteContext = Just uTicket - , notePublished = Just now + , notePublished = Nothing , noteContent = msg } ExceptT $ handleOutboxNote hLocal note