From b8d6df7a5119aa0f5c919677aef0b1bb97269f7c Mon Sep 17 00:00:00 2001
From: Neil Smith <neil.git@njae.me.uk>
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.43.0