diff --git a/Setup.hs b/Setup.hs
--- a/Setup.hs
+++ b/Setup.hs
@@ -1,2 +1,4 @@
 import Distribution.Simple
-main = defaultMain
+
+main :: IO ()
+main = defaultMainWithHooks simpleUserHooks
diff --git a/pathfindingcore.cabal b/pathfindingcore.cabal
--- a/pathfindingcore.cabal
+++ b/pathfindingcore.cabal
@@ -1,5 +1,5 @@
 Name:                pathfindingcore
-Version:             1.2
+Version:             1.2.1
 Cabal-version:       >=1.16.0
 License:             BSD3
 License-File:        LICENSE.txt
diff --git a/src/PathFindingCore/PathingMap.hs b/src/PathFindingCore/PathingMap.hs
--- a/src/PathFindingCore/PathingMap.hs
+++ b/src/PathFindingCore/PathingMap.hs
@@ -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)
diff --git a/src/PathFindingCore/PathingMap/Coordinate.hs b/src/PathFindingCore/PathingMap/Coordinate.hs
--- a/src/PathFindingCore/PathingMap/Coordinate.hs
+++ b/src/PathFindingCore/PathingMap/Coordinate.hs
@@ -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)