Fix leaky path graph creation

src/Dodge/Data/PathGraph.hs

@@ -0,0 +1,12 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+module Dodge.Data.PathGraph where
+import Geometry.Data
+import Control.Lens
+import Data.Graph.Inductive
+data PathGraph = PathGraph
+    { _pgGraph      :: Gr Point2 Float
+    , _pgNodeMap    :: NodeMap Point2
+    }
+
+makeLenses ''PathGraph