From 90fa5ccef83da3042b675cc68d10e1107d9b3e6f Mon Sep 17 00:00:00 2001 From: nek0 Date: Fri, 29 Dec 2017 20:31:52 +0100 Subject: [PATCH] indentation fix --- examples/example01/Types.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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