Commit 5660d1dd authored by batterseapower's avatar batterseapower
Browse files

Tweak comments in MkId and follow mkStringLit renaming

parent 7c6c7a46
...@@ -90,6 +90,7 @@ import Module ...@@ -90,6 +90,7 @@ import Module
%************************************************************************ %************************************************************************
\begin{code} \begin{code}
wiredInIds :: [Id]
wiredInIds wiredInIds
= [ -- These error-y things are wired in because we don't yet have = [ -- These error-y things are wired in because we don't yet have
-- a way to express in an interface file that the result type variable -- a way to express in an interface file that the result type variable
...@@ -117,6 +118,7 @@ wiredInIds ...@@ -117,6 +118,7 @@ wiredInIds
] ++ ghcPrimIds ] ++ ghcPrimIds
-- These Ids are exported from GHC.Prim -- These Ids are exported from GHC.Prim
ghcPrimIds :: [Id]
ghcPrimIds ghcPrimIds
= [ -- These can't be defined in Haskell, but they have = [ -- These can't be defined in Haskell, but they have
-- perfectly reasonable unfoldings in Core -- perfectly reasonable unfoldings in Core
...@@ -957,7 +959,7 @@ unwrapFamInstScrut tycon args scrut ...@@ -957,7 +959,7 @@ unwrapFamInstScrut tycon args scrut
%************************************************************************ %************************************************************************
%* * %* *
\subsection{Primitive operations \subsection{Primitive operations}
%* * %* *
%************************************************************************ %************************************************************************
...@@ -1275,7 +1277,7 @@ mkRuntimeErrorApp ...@@ -1275,7 +1277,7 @@ mkRuntimeErrorApp
mkRuntimeErrorApp err_id res_ty err_msg mkRuntimeErrorApp err_id res_ty err_msg
= mkApps (Var err_id) [Type res_ty, err_string] = mkApps (Var err_id) [Type res_ty, err_string]
where where
err_string = Lit (mkStringLit err_msg) err_string = Lit (mkMachString err_msg)
rEC_SEL_ERROR_ID = mkRuntimeErrorId recSelErrorName rEC_SEL_ERROR_ID = mkRuntimeErrorId recSelErrorName
rUNTIME_ERROR_ID = mkRuntimeErrorId runtimeErrorName rUNTIME_ERROR_ID = mkRuntimeErrorId runtimeErrorName
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment