# LANGUAGE TemplateHaskell , ForeignFunctionInterface #

module Graphics.Wayland.Internal.SpliceServerTypes where

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

import Graphics.Wayland.Scanner.Protocol
import Graphics.Wayland.Scanner

$(runIO readProtocol >>= generateServerTypes)

# LANGUAGE TemplateHaskell , ForeignFunctionInterface #

module Graphics.Wayland.Internal.SpliceServerTypes where

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

import Graphics.Wayland.Scanner.Protocol
import Graphics.Wayland.Scanner

$(runIO readProtocol >>= generateServerTypes)
