From ddb6bb0472d1552d0ba77079399e0c2f7ce46277 Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@riseup.net>
Date: Tue, 7 May 2019 03:12:47 +0000
Subject: [PATCH] When publishing a comment via PublishR, don't specify
 'published' time

The server expects not to see it, and wants to set it by itself
---
 src/Vervis/Handler/Inbox.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

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