diff options
Diffstat (limited to 'compiler/coreSyn/MkCore.lhs')
| -rw-r--r-- | compiler/coreSyn/MkCore.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/coreSyn/MkCore.lhs b/compiler/coreSyn/MkCore.lhs index e903ab2084..42f83151f7 100644 --- a/compiler/coreSyn/MkCore.lhs +++ b/compiler/coreSyn/MkCore.lhs @@ -284,11 +284,11 @@ mkStringExprFS str | all safeChar chars = do unpack_id <- lookupId unpackCStringName - return (App (Var unpack_id) (Lit (MachStr (fastStringToFastBytes str)))) + return (App (Var unpack_id) (Lit (MachStr (fastStringToByteString str)))) | otherwise = do unpack_id <- lookupId unpackCStringUtf8Name - return (App (Var unpack_id) (Lit (MachStr (fastStringToFastBytes str)))) + return (App (Var unpack_id) (Lit (MachStr (fastStringToByteString str)))) where chars = unpackFS str |