shithub: MicroHs

ref: d370185fefb5bd0f338e7b9d65280a54929e40bf
dir: /src/MicroHs/Builtin.hs/

View raw version 
module MicroHs.Builtin(
  builtinMdl,
  mkBuiltin,
  ) where
import Prelude(); import MHSPrelude
import MicroHs.Ident

-- The compiler needs a number of identifiers from libraries.
-- These are make available by (programatically) adding
--  'import Mhs.Builtin qualified as B@"
-- The name 'B@' is not a valid identifier, so these name
-- cannot be used accidentally in user code.
builtinMdl :: String
builtinMdl = "B@"

mkBuiltin :: SLoc -> String -> Ident
mkBuiltin loc name = mkIdentSLoc loc ((builtinMdl ++ ".") ++ name)