import qualified Language.C.Types as C
import qualified Data.Map as Map

data Context

contextCntx :: C.Context 
contextCntx = mempty {
    C.ctxTypesTable = Map.fromList [
      (C.TypeName "Context", [t| Context |])
    ]