Create post world load function

src/Data/Tile.hs

@@ -2,6 +2,8 @@
 --{-# LANGUAGE StrictData #-}
 module Data.Tile where
 import Geometry.Data
+import Data.Aeson
+import Data.Aeson.TH
 
 import Control.Lens
 
@@ -18,3 +20,4 @@ data Tile = Tile
   deriving (Eq, Ord, Show)
 makeLenses ''Floor
 makeLenses ''Tile
+deriveJSON defaultOptions ''Tile