tracer/src/Types/ObjType.hs
2018-07-30 14:34:46 +02:00

17 lines
312 B
Haskell

{-# LANGUAGE MultiParamTypeClasses #-}
module Types.ObjType where
import Affection
import Data.Ecstasy (Ent)
data ObjType
= ObjCopier
| ObjComputer
deriving (Show, Eq, Ord, Enum)
class ObjectAction us t where
objectAction :: t -> Ent -> Affection us ()
ubjectUpdate :: t -> Ent -> Affection us ()