From b8d6df7a5119aa0f5c919677aef0b1bb97269f7c Mon Sep 17 00:00:00 2001 From: Neil Smith Date: Tue, 2 Oct 2018 11:31:09 +0100 Subject: [PATCH] Tweaked a name --- src/task6/task6-monad.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/task6/task6-monad.hs b/src/task6/task6-monad.hs index df52ed1..50aca55 100644 --- a/src/task6/task6-monad.hs +++ b/src/task6/task6-monad.hs @@ -66,10 +66,10 @@ execGroups (State st) = fst $ st M.empty -- including all the friendships is just a monadic fold mergeFriendships :: [(Name, Name)] -> State () -mergeFriendships pairs = foldM_ includeFriendshipM () pairs +mergeFriendships pairs = foldM_ includeFriendship () pairs -includeFriendshipM :: () -> (Name, Name) -> State () -includeFriendshipM _ (thisPerson, thatPerson) = do +includeFriendship :: () -> (Name, Name) -> State () +includeFriendship _ (thisPerson, thatPerson) = do include thisPerson include thatPerson thisExemplar <- exemplar thisPerson -- 2.34.1