removing clutter

src/Test.hs

@@ -107,7 +107,6 @@ loadMapFork ud future progress = do
         Prelude.map
           (\a -> if a == Just ImgEmpty then Nothing else a)
           (M.toList inter)
-      , initCoords = (0, 500)
       , reachPoints = rps
       })
 

src/Types/StateData.hs

@@ -18,10 +18,9 @@ data StateData
     { loadAssetImages :: Map ImgId Image
     , loadAssetAnims  :: Map AnimId Animation
     }
-  | MenuData                                                                       
-    { mapMat      :: Matrix TileState                                              
-    , initCoords  :: (Int, Int)                                                    
-    , imgMat      :: Matrix (Maybe ImgId)                                          
-    , reachPoints :: [ReachPoint]                                                  
+  | MenuData
+    { mapMat      :: Matrix TileState
+    , imgMat      :: Matrix (Maybe ImgId)
+    , reachPoints :: [ReachPoint]
     }
   deriving (Eq)