tA/evac
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fixed typo

Browse Source
This commit is contained in:
Shaun Kerr 2019-05-16 09:39:06 +12:00
parent 7a5304e9b6
commit 6727bdeb1d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Groups.hs
View File

@ -60,7 +60,7 @@ hurt' x y (nt,d)
attract :: MainCharacter -> MainCharacter -> BoardState -> BoardState attract :: MainCharacter -> MainCharacter -> BoardState -> BoardState
attract x y (nt,d) attract x y (nt,d)
| not $ y `elem` (getAdj x nt) = (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 X and Y (no restrictions)
attract' :: MainCharacter -> MainCharacter -> BoardState -> BoardState attract' :: MainCharacter -> MainCharacter -> BoardState -> BoardState