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

instance RequestWithReply Enable EnableReply where
        requestWithReplyIO (MkEnable) conn
          = fmap (fmap (second MkEnableReply)) (fmap getReply (enable conn))