2018-07-22 20:30:17 +00:00
|
|
|
{-# LANGUAGE MultiParamTypeClasses #-}
|
|
|
|
|
module Types.ObjType where
|
|
|
|
|
|
|
|
|
|
import Affection
|
|
|
|
|
|
|
|
|
|
import Data.Ecstasy (Ent)
|
|
|
|
|
|
|
|
|
|
data ObjType
|
|
|
|
|
= ObjCopier
|
2018-07-30 12:34:46 +00:00
|
|
|
| ObjComputer
|
2018-07-22 20:30:17 +00:00
|
|
|
deriving (Show, Eq, Ord, Enum)
|
|
|
|
|
|
|
|
|
|
class ObjectAction us t where
|
|
|
|
|
objectAction :: t -> Ent -> Affection us ()
|
2018-07-30 12:34:46 +00:00
|
|
|
|
|
|
|
|
ubjectUpdate :: t -> Ent -> Affection us ()
|
