{-# LANGUAGE TemplateHaskell, ForeignFunctionInterface #-}

module Graphics.Wayland.Internal.SpliceClient where

import Data.Functor
import Language.Haskell.TH
import Foreign.C.Types

import Graphics.Wayland.Scanner.Protocol
import Graphics.Wayland.Scanner
import Graphics.Wayland.Internal.SpliceClientInternal
import Graphics.Wayland.Internal.SpliceClientTypes


$(runIO readProtocol >>= generateClientExternalMethods)
$(runIO readProtocol >>= generateClientExternalListeners)
$(runIO readProtocol >>= generateRegistryBindExternal)