meow

src/Types/Map.hs

@@ -3,6 +3,11 @@ module Types.Map where
 import Linear
 
 data Map = Map
-  { mapLayers :: [Layer]
-  , mapStart :: V2 Word
+  { mapLayers :: [(Word, Layer)] -- | (Index, Tile leyer)
+  , mapStart :: (Word, V2 Word) -- | (Layer index, Position)
   }
+
+data Layer = Layer
+  { 
+
+type LayerDescriptor = FilePath