Split out more data files

src/Dodge/Data/Door.hs

@@ -0,0 +1,11 @@
+--{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+module Dodge.Data.Door where
+
+data DoorStatus = DoorOpen | DoorClosed | DoorHalfway | DoorInt Int
+  deriving (Eq, Ord, Show)
+
+data PushSource = PushesItself
+    | PushedBy Int
+    | NotPushed
+  deriving (Eq,Ord,Show)