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