pathfindingcore 1.2 → 1.2.1

raw patch · 4 files changed

+7/−7 lines, 4 filessetup-changed

Files

Setup.hs +3/−1
pathfindingcore.cabal +1/−1
src/PathFindingCore/PathingMap.hs +2/−4
src/PathFindingCore/PathingMap/Coordinate.hs +1/−1

Setup.hs view

@@ -1,2 +1,4 @@ import Distribution.Simple-main = defaultMain++main :: IO ()+main = defaultMainWithHooks simpleUserHooks

pathfindingcore.cabal view

@@ -1,5 +1,5 @@ Name:                pathfindingcore-Version:             1.2+Version:             1.2.1 Cabal-version:       >=1.16.0 License:             BSD3 License-File:        LICENSE.txt

src/PathFindingCore/PathingMap.hs view

@@ -1,4 +1,4 @@-{-# LANGUAGE FlexibleInstances #-}+{-# LANGUAGE FlexibleInstances, TupleSections #-} module PathFindingCore.PathingMap(findDirection, getTerrain, insertPath, markAsGoal, neighborsOf, PrintablePathingGrid(..), step) where  import Control.Arrow((>>>))@@ -39,9 +39,7 @@ markAsGoal coord grid = grid // [(coord, Goal)]  insertPath :: [Coordinate] -> PathingGrid -> PathingGrid-insertPath coords grid = grid // (fmap f coords)-  where-    f coord = (coord, Path)+insertPath coords grid = grid // (fmap (, Path) coords)  findNeighborCoord :: Coordinate -> Direction -> Coordinate findNeighborCoord (Coord x y) North = Coord  x     (y + 1)

src/PathFindingCore/PathingMap/Coordinate.hs view

@@ -1,6 +1,6 @@ module PathFindingCore.PathingMap.Coordinate where -import Data.Ix+import Data.Ix(Ix)  data Coordinate   = Coord { x :: Int, y :: Int } deriving (Eq, Ix, Ord, Show)