{-# LANGUAGE MultiParamTypeClasses #-}
module Types.ObjType where

import Affection

import Data.Ecstasy (Ent)

data ObjType
  = ObjCopier
  | ObjComputer
  | ObjToilet
  deriving (Show, Eq, Ord, Enum)

class ObjectAction us t where
  objectAction :: t -> Ent -> Affection us ()

  objectUpdate :: t -> Ent -> Affection us ()