12 lines
280 B
Haskell
12 lines
280 B
Haskell
--{-# 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)
|