Remove unused code

Co-authored-by: griase94 <[email protected]>
ndrsllwngr · Sep 17, 2020 · 68e0e30 · 68e0e30
1 parent f76a04f
commit 68e0e30
Showing 1 changed file with 0 additions and 11 deletions.
diff --git a/src/Game/Board.hs b/src/Game/Board.hs
@@ -142,17 +142,6 @@ coordinateToCellNumber (i, j) (_, w) = (i -1) * w + j
 inBounds :: Coordinate -> Dimension -> Bool
 inBounds (i, j) (h, w) = (i > 0) && (i <= h) && (j > 0) && (j <= w)
 
--- Calculates all inBounds direct (non diagonal) neighbour cells of a given cell
-directNeighbourCells :: Coordinate -> Dimension -> [Coordinate]
-directNeighbourCells (i, j) d = filter (`inBounds` d) theoreticalNeighbors
-  where
-    theoreticalNeighbors =
-      [ (i -1, j), -- top
-        (i, j -1), -- left
-        (i, j + 1), -- right
-        (i + 1, j) -- bottom
-      ]
-
 -- Calculates all inBounds (including diagonal) neighbour cells of a given cell
 neighbourCells :: Coordinate -> Dimension -> [Coordinate]
 neighbourCells (i, j) d = filter (`inBounds` d) theoreticalNeighbors