From 3821f609ff408de1dd75ea3f3a533aa3f1357c41 Mon Sep 17 00:00:00 2001
From: Shaun Kerr <shaundavidkerr@gmail.com>
Date: Mon, 20 May 2019 16:43:29 +1200
Subject: [PATCH] comments or some bullshit

---
 Connect.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Connect.hs b/Connect.hs
index e40ab46..ce5a246 100644
--- a/Connect.hs
+++ b/Connect.hs
@@ -29,6 +29,7 @@ conHurt charX charY oldBoardState
       oldGroups = (ntGroups . bsNeoTokyo) oldBoardState
       oldPut = (ntPutCards . bsNeoTokyo) oldBoardState
 
+-- Passes state for X to attract Y
 conAttract :: MainCharacter -> MainCharacter -> BoardState -> BoardState
 conAttract charX charY oldBoardState
    | not $ isAdjacent charX charY oldGroups = oldBoardState