nek0/affection
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

indentation fix

Browse source
This commit is contained in:
nek0 2017-12-29 20:31:52 +01:00
parent e83a36910a
commit 90fa5ccef8
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
examples/example01/Types.hs
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