diff options
| author | Kelly Rauchenberger <fefferburbia@gmail.com> | 2013-04-02 02:04:37 -0400 |
|---|---|---|
| committer | Kelly Rauchenberger <fefferburbia@gmail.com> | 2013-04-02 02:04:37 -0400 |
| commit | cb5f5ff553e7fb8f17c3df05b704bf796a970cc8 (patch) | |
| tree | 3bc8a568718386a73ed0527e2568aec7c18f50a3 | |
| parent | 94fc90c32fb9d6694a95a9c191553aa39eabd10a (diff) | |
| download | fallen-hs-master.tar.gz fallen-hs-master.tar.bz2 fallen-hs-master.zip | |
| -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 |