{-# LANGUAGE QuasiQuotes #-} {-# LANGUAGE TemplateHaskell #-} module Hercules.CNix.Std.String.Context where import qualified Data.Map as M import qualified Language.C.Inline as C import qualified Language.C.Inline.Context as C import qualified Language.C.Inline.Cpp as C import qualified Language.C.Types as C import Prelude data CStdString stdStringCtx :: C.Context stdStringCtx :: Context stdStringCtx = Context C.cppCtx Context -> Context -> Context forall a. Semigroup a => a -> a -> a <> Context forall a. Monoid a => a mempty { ctxTypesTable :: TypesTable C.ctxTypesTable = TypeSpecifier -> Q Type -> TypesTable forall k a. k -> a -> Map k a M.singleton (CIdentifier -> TypeSpecifier C.TypeName CIdentifier "std::string") [t|CStdString|] }