Add files

src/Dodge/Data/Wall/Structure.hs

@@ -0,0 +1,21 @@
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE DeriveAnyClass #-}
+{-# LANGUAGE StrictData #-}
+{-# LANGUAGE TemplateHaskell #-}
+
+module Dodge.Data.Wall.Structure
+ where
+import Control.Lens
+import Data.Aeson
+import Data.Aeson.TH
+
+data WallStructure
+    = StandaloneWall
+    | DoorPart {_wsDoor :: Int}
+    | MachinePart {_wsMachine :: Int}
+    | BlockPart {_wsBlock :: Int}
+    | CreaturePart { _wlStCreature :: Int }
+    deriving (Eq, Ord, Show, Read) --Generic, Flat)
+
+makeLenses ''WallStructure
+deriveJSON defaultOptions ''WallStructure