fix minor memory leak caused by recent CanPush change

Putting the UUID in meant that equivilant CanPush messages no longer are ==

1 files changed, 3 insertions, 3 deletions

diff --git a/Assistant/NetMessager.hs b/Assistant/NetMessager.hs
index 2e786717d..7c996bb09 100644
--- a/Assistant/NetMessager.hs
+++ b/Assistant/NetMessager.hs
@@ -32,8 +32,8 @@ notifyNetMessagerRestart =
 waitNetMessagerRestart :: Assistant ()
 waitNetMessagerRestart = readSV <<~ (netMessagerRestart . netMessager)
 
-{- Store an important NetMessage for a client, and if the same message was
- - already sent, remove it from sentImportantNetMessages. -}
+{- Store an important NetMessage for a client, and if an equivilant
+ - message was already sent, remove it from sentImportantNetMessages. -}
 storeImportantNetMessage :: NetMessage -> ClientID -> (ClientID -> Bool) -> Assistant ()
 storeImportantNetMessage m client matchingclient = go <<~ netMessager
   where
@@ -45,7 +45,7 @@ storeImportantNetMessage m client matchingclient = go <<~ netMessager
 		putTMVar (sentImportantNetMessages nm) $
 			M.mapWithKey removematching sent
 	removematching someclient s
-		| matchingclient someclient = S.delete m s
+		| matchingclient someclient = S.filter (not . equivilantImportantNetMessages m) s
 		| otherwise = s
 
 {- Indicates that an important NetMessage has been sent to a client. -}