diff --git a/examples/example01/Types.hs b/examples/example01/Types.hs index 2ce7855..9fea586 100644 --- a/examples/example01/Types.hs +++ b/examples/example01/Types.hs @@ -72,7 +72,7 @@ generalUnSubscribe -> UUID -> Affection UserData () generalUnSubscribe t uuid = - liftIO $ atomically $ modifyTVar' t (filter (`filterMsg` uuid)) - where - filterMsg :: (UUID, msg -> Affection UserData ()) -> UUID -> Bool - filterMsg (u, _) p = u /= p + liftIO $ atomically $ modifyTVar' t (filter (`filterMsg` uuid)) + where + filterMsg :: (UUID, msg -> Affection UserData ()) -> UUID -> Bool + filterMsg (u, _) p = u /= p