--{-# 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)