Remove the trivial mkFastStringFastBytes wrapper

compiler/deSugar/MatchLit.lhs

@@ -263,7 +263,7 @@ matchLiterals (var:vars) ty sub_groups
     wrap_str_guard eq_str (MachStr s, mr)
 	= do { -- We now have to convert back to FastString. Perhaps there
 	       -- should be separate MachBytes and MachStr constructors?
-	       s'     <- liftIO $ mkFastStringFastBytes s
+	       s'     <- liftIO $ mkFastStringByteString s
 	     ; lit    <- mkStringExprFS s'
 	     ; let pred = mkApps (Var eq_str) [Var var, lit]
 	     ; return (mkGuardedMatchResult pred mr) }

compiler/utils/Binary.hs

@@ -720,7 +720,7 @@ putFS bh fs = putBS bh $ fastStringToFastBytes fs
 
 getFS :: BinHandle -> IO FastString
 getFS bh = do bs <- getBS bh
-              mkFastStringFastBytes bs
+              mkFastStringByteString bs
 
 putBS :: BinHandle -> ByteString -> IO ()
 putBS bh bs =

compiler/utils/FastString.lhs

@@ -28,8 +28,8 @@ module FastString
        (
         -- * FastBytes
         FastBytes,
-        mkFastStringFastBytes,
         fastStringToFastBytes,
+        mkFastStringByteString,
         fastZStringToByteString,
         unsafeMkFastBytesString,
         hashByteString,
@@ -131,9 +131,6 @@ import GHC.Base         ( unpackCString# )
 
 type FastBytes = ByteString
 
-mkFastStringFastBytes :: FastBytes -> IO FastString
-mkFastStringFastBytes bs = mkFastStringByteString bs
-
 fastStringToFastBytes :: FastString -> FastBytes
 fastStringToFastBytes f = fs_fb f
 
@@ -449,7 +446,7 @@ zEncodeFS fs@(FastString _ _ _ ref) =
 
 appendFS :: FastString -> FastString -> FastString
 appendFS fs1 fs2 = inlinePerformIO
-                 $ mkFastStringFastBytes
+                 $ mkFastStringByteString
                  $ BS.append (fastStringToFastBytes fs1)
                              (fastStringToFastBytes fs2)