diff --git a/src/Vervis/API.hs b/src/Vervis/API.hs index 88e92f0..797e469 100644 --- a/src/Vervis/API.hs +++ b/src/Vervis/API.hs @@ -216,13 +216,13 @@ createNoteC (Entity pidUser personUser) sharerUser summary audience note = runEx case nc of NoteContextSharerTicket shr talid -> let talkhid = hashTAL talid - in [ LocalPersonCollectionSharerTicketTeam shr talkhid - , LocalPersonCollectionSharerTicketFollowers shr talkhid + in [ -- LocalPersonCollectionSharerTicketTeam shr talkhid + LocalPersonCollectionSharerTicketFollowers shr talkhid ] NoteContextProjectTicket shr prj ltid -> let ltkhid = hashLT ltid - in [ LocalPersonCollectionProjectTicketTeam shr prj ltkhid - , LocalPersonCollectionProjectTicketFollowers shr prj ltkhid + in [ -- LocalPersonCollectionProjectTicketTeam shr prj ltkhid + LocalPersonCollectionProjectTicketFollowers shr prj ltkhid ] Right _ -> [] commenter = [LocalPersonCollectionSharerFollowers shrUser]