Rename literal constructors
[ghc.git] / compiler / coreSyn / MkCore.hs
index 8a7d3b4..73c2e7c 100644 (file)
@@ -302,7 +302,7 @@ mkStringExprFSWith lookupM str
   where
     chars = unpackFS str
     safeChar c = ord c >= 1 && ord c <= 0x7F
-    lit = Lit (MachStr (fastStringToByteString str))
+    lit = Lit (LitString (fastStringToByteString str))
 
 {-
 ************************************************************************
@@ -658,7 +658,7 @@ mkRuntimeErrorApp err_id res_ty err_msg
   = mkApps (Var err_id) [ Type (getRuntimeRep res_ty)
                         , Type res_ty, err_string ]
   where
-    err_string = Lit (mkMachString err_msg)
+    err_string = Lit (mkLitString err_msg)
 
 mkImpossibleExpr :: Type -> CoreExpr
 mkImpossibleExpr res_ty
@@ -896,4 +896,4 @@ mkAbsentErrorApp :: Type         -- The type to instantiate 'a'
 mkAbsentErrorApp res_ty err_msg
   = mkApps (Var aBSENT_ERROR_ID) [ Type res_ty, err_string ]
   where
-    err_string = Lit (mkMachString err_msg)
+    err_string = Lit (mkLitString err_msg)