indentation fix

This commit is contained in:
nek0 2017-12-29 20:31:52 +01:00
parent e83a36910a
commit 90fa5ccef8

View file

@ -72,7 +72,7 @@ generalUnSubscribe
-> UUID -> UUID
-> Affection UserData () -> Affection UserData ()
generalUnSubscribe t uuid = generalUnSubscribe t uuid =
liftIO $ atomically $ modifyTVar' t (filter (`filterMsg` uuid)) liftIO $ atomically $ modifyTVar' t (filter (`filterMsg` uuid))
where where
filterMsg :: (UUID, msg -> Affection UserData ()) -> UUID -> Bool filterMsg :: (UUID, msg -> Affection UserData ()) -> UUID -> Bool
filterMsg (u, _) p = u /= p filterMsg (u, _) p = u /= p