{-# LANGUAGE MultiParamTypeClasses #-}
module Graphics.XHB.Requests.Internal.Instances.Damage () where
import Graphics.XHB.Gen.Damage
import Graphics.XHB.Requests.Internal.Classes
import Prelude (fmap)
import Data.Bifunctor (second)
import Graphics.XHB (getReply)

instance RequestWithReply QueryVersion QueryVersionReply where
        requestWithReplyIO (MkQueryVersion a b) conn
          = fmap getReply (queryVersion conn a b)

instance Request Create where
        requestIO req conn = create conn req

instance Request Destroy where
        requestIO (MkDestroy a) conn = destroy conn a

instance Request Subtract where
        requestIO req conn = subtract conn req

instance Request Add where
        requestIO (MkAdd a b) conn = add conn a b