Rename literal constructors
[ghc.git] / compiler / typecheck / TcEvTerm.hs
index 8d8aa9b..7ccd018 100644 (file)
@@ -29,7 +29,7 @@ evDelayedError ty msg
     Var errorId `mkTyApps` [getRuntimeRep ty, ty] `mkApps` [litMsg]
   where
     errorId = tYPE_ERROR_ID
-    litMsg  = Lit (MachStr (fastStringToByteString msg))
+    litMsg  = Lit (LitString (fastStringToByteString msg))
 
 -- Dictionary for CallStack implicit parameters
 evCallStack :: (MonadThings m, HasModule m, HasDynFlags m) =>