From: Neil Smith <neil.git@njae.me.uk>
Date: Tue, 2 Oct 2018 10:31:09 +0000 (+0100)
Subject: Tweaked a name
X-Git-Url: https://git.njae.me.uk/?a=commitdiff_plain;h=b8d6df7a5119aa0f5c919677aef0b1bb97269f7c;p=summerofcode2018soln.git

Tweaked a name
---

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