tracer/src/Types/ObjType.hs
2018-08-18 05:12:58 +02:00

19 lines
452 B
Haskell

{-# LANGUAGE MultiParamTypeClasses #-}
module Types.ObjType where
data ObjType
= 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