{-# LANGUAGE MultiParamTypeClasses #-}
module Graphics.XHB.Requests.Internal.Instances.Res () where
import Graphics.XHB.Gen.Res
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 RequestWithReply QueryClients QueryClientsReply where
        requestWithReplyIO (MkQueryClients) conn
          = fmap getReply (queryClients conn)

instance RequestWithReply QueryClientResources
         QueryClientResourcesReply where
        requestWithReplyIO (MkQueryClientResources a) conn
          = fmap getReply (queryClientResources conn a)

instance RequestWithReply QueryClientPixmapBytes
         QueryClientPixmapBytesReply where
        requestWithReplyIO (MkQueryClientPixmapBytes a) conn
          = fmap getReply (queryClientPixmapBytes conn a)