Broken: refactor terminals

2022-07-25 00:45:15 +01:00
parent d1bf49319a
commit d219d8d889
25 changed files with 505 additions and 364 deletions
@@ -20,6 +20,7 @@ data MachineDraw = MachineDrawMempty
    | MachineDrawTerminal
    | MachineDrawTurret
    | MachineDrawDamageSensor Float (PaletteColor,DecorationShape)
+  deriving (Eq,Ord,Show,Read)
 data Machine = Machine
    { _mcID     :: Int
    , _mcWallIDs    :: IS.IntSet
@@ -36,6 +37,7 @@ data Machine = Machine
    , _mcName   :: String
    , _mcCloseSound  :: Maybe SoundID
    }
+  deriving (Eq,Ord,Show,Read)
 data MachineType 
    = StaticMachine
    | Turret
@@ -44,6 +46,6 @@ data MachineType
        , _tuFireTime   :: Int
        , _tuMCrID      :: Maybe Int
        }
-
+  deriving (Eq,Ord,Show,Read)
 makeLenses ''Machine
 makeLenses ''MachineType