tracer/src/Types/ObjType.hs

20 lines
464 B
Haskell
Raw Normal View History

{-# LANGUAGE MultiParamTypeClasses #-}
module Types.ObjType where
data ObjType
2019-02-14 21:31:00 +00:00
= ObjDoor
| ObjCopier
2018-07-30 12:34:46 +00:00
| ObjComputer
2018-07-31 20:59:25 +00:00
| ObjToilet
deriving (Show, Eq, Ord, Enum)
2018-08-10 06:58:26 +00:00
type ObjState = String
2018-07-30 12:34:46 +00:00
2018-08-10 06:58:26 +00:00
-- 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