diff options
Diffstat (limited to 'Fallen/Map.hs')
| -rw-r--r-- | Fallen/Map.hs | 2 |
1 files changed, 1 insertions, 1 deletions
| diff --git a/Fallen/Map.hs b/Fallen/Map.hs index a33b696..6e15aed 100644 --- a/Fallen/Map.hs +++ b/Fallen/Map.hs | |||
| @@ -46,7 +46,7 @@ module Fallen.Map | |||
| 46 | -- legalMoves :: Map -> Point -> [Tile] -> [Direction] | 46 | -- legalMoves :: Map -> Point -> [Tile] -> [Direction] |
| 47 | legalMoves m p ts = map fst $ filter legal $ map tileDir directions where | 47 | legalMoves m p ts = map fst $ filter legal $ map tileDir directions where |
| 48 | tileDir d = (d, getTileAtPos m $ stepInDirection p d) | 48 | tileDir d = (d, getTileAtPos m $ stepInDirection p d) |
| 49 | legal (_,t) = t `elem` ts | 49 | legal (d,t) = (t `elem` ts) && (inBounds m $ stepInDirection p d) |
| 50 | 50 | ||
| 51 | -- fillMapRect :: Int -> Int -> Int -> Int -> Tile -> Map -> Map | 51 | -- fillMapRect :: Int -> Int -> Int -> Int -> Tile -> Map -> Map |
| 52 | fillMapRect x y w h t (Map d xs bg) = if bg == t | 52 | fillMapRect x y w h t (Map d xs bg) = if bg == t |