tracer/src/Types/ObjType.hs
2019-02-14 22:31:00 +01:00

20 lines
464 B
Haskell

{-# LANGUAGE MultiParamTypeClasses #-}
module Types.ObjType where
data ObjType
= ObjDoor
| ObjCopier
| ObjComputer
| ObjToilet
deriving (Show, Eq, Ord, Enum)
type ObjState = String
-- class ObjectAction us otype ostate where
-- objectAction :: otype -> ostate -> Ent -> Affection us ()
--
-- objectTransition :: otype -> ostate -> Ent -> Affection us Entity
--
-- class ActionTime otype ostate where
-- actionTime :: otype -> ostate -> Double