naskya/vervis
1
0
Fork 0
mirror of https://code.naskya.net/repos/ndqEd synced 2025-01-10 23:36:46 +09:00
Code Activity

Comment out more uses of ticket team collection

Browse source
This commit is contained in:
fr33domlover 2020-05-14 08:58:37 +00:00
parent a5348245f6
commit 003adcbf7b
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/Vervis/API.hs
View file

@ -216,13 +216,13 @@ createNoteC (Entity pidUser personUser) sharerUser summary audience note = runEx
case nc of case nc of
NoteContextSharerTicket shr talid -> NoteContextSharerTicket shr talid ->
let talkhid = hashTAL talid let talkhid = hashTAL talid
in [ LocalPersonCollectionSharerTicketTeam shr talkhid in [ -- LocalPersonCollectionSharerTicketTeam shr talkhid
, LocalPersonCollectionSharerTicketFollowers shr talkhid LocalPersonCollectionSharerTicketFollowers shr talkhid
] ]
NoteContextProjectTicket shr prj ltid -> NoteContextProjectTicket shr prj ltid ->
let ltkhid = hashLT ltid let ltkhid = hashLT ltid
in [ LocalPersonCollectionProjectTicketTeam shr prj ltkhid in [ -- LocalPersonCollectionProjectTicketTeam shr prj ltkhid
, LocalPersonCollectionProjectTicketFollowers shr prj ltkhid LocalPersonCollectionProjectTicketFollowers shr prj ltkhid
] ]
Right _ -> [] Right _ -> []
commenter = [LocalPersonCollectionSharerFollowers shrUser] commenter = [LocalPersonCollectionSharerFollowers shrUser]