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

instance RequestWithReply GetVersion GetVersionReply where
        requestWithReplyIO (MkGetVersion a b) conn
          = fmap getReply (getVersion conn a b)

instance RequestWithReply GetXIDRange GetXIDRangeReply where
        requestWithReplyIO (MkGetXIDRange) conn
          = fmap getReply (getXIDRange conn)

instance RequestWithReply GetXIDList GetXIDListReply where
        requestWithReplyIO (MkGetXIDList a) conn
          = fmap getReply (getXIDList conn a)