Use ByteString to represent Cmm string literals (#16198)
[ghc.git] / compiler / prelude / TysWiredIn.hs
index 6fea0e4..5ea1fd0 100644 (file)
@@ -738,7 +738,7 @@ isBuiltInOcc_maybe occ =
                 in Just $ dataConName $ sumDataCon alt arity
       _ -> Nothing
   where
-    name = fastStringToByteString $ occNameFS occ
+    name = bytesFS $ occNameFS occ
 
     choose_ns :: Name -> Name -> Name
     choose_ns tc dc