From 6727bdeb1d613bc29e89a873808f93b309ef74c2 Mon Sep 17 00:00:00 2001
From: Shaun Kerr <shaundavidkerr@gmail.com>
Date: Thu, 16 May 2019 09:39:06 +1200
Subject: [PATCH] fixed typo

---
 Groups.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Groups.hs b/Groups.hs
index e840f21..a0da67a 100644
--- a/Groups.hs
+++ b/Groups.hs
@@ -60,7 +60,7 @@ hurt' x y (nt,d)
 attract :: MainCharacter -> MainCharacter -> BoardState -> BoardState
 attract x y (nt,d)
          | not $ y `elem` (getAdj x nt) = (nt,d)
-         | otherwise = attract' x y (nt'd)
+         | otherwise = attract' x y (nt,d)
 
 -- Attract X and Y (no restrictions)
 attract' :: MainCharacter -> MainCharacter -> BoardState -> BoardState