hercules-ci-cnix-store-0.2.0.0: src/Hercules/CNix/Std/String/Context.hs

{-# 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 =
  C.cppCtx
    <> mempty
      { C.ctxTypesTable =
          M.singleton (C.TypeName "std::string") [t|CStdString|]
      }