#if __GLASGOW_HASKELL__ < 802
import Data.Monoid
#endif


mssqlCtx :: [(C.CIdentifier, TypeQ)] -> C.Context
mssqlCtx types = C.baseCtx <> C.bsCtx <> C.funCtx <> C.fptrCtx <>  C.vecCtx <> mssqlCtx'
  where
    mssqlCtx' = mempty
      { ctxTypesTable = mssqlTypesTable types