Remove the trivial mkFastStringFastBytes wrapper
authorIan Lynagh <ian@well-typed.com>
Fri, 14 Dec 2012 18:14:51 +0000 (18:14 +0000)
committerIan Lynagh <ian@well-typed.com>
Fri, 14 Dec 2012 18:14:51 +0000 (18:14 +0000)
compiler/deSugar/MatchLit.lhs
compiler/utils/Binary.hs
compiler/utils/FastString.lhs

index f6207f1..03ddc22 100644 (file)
@@ -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) }
index 77f29a0..e90addd 100644 (file)
@@ -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 =
index 228b053..67327d5 100644 (file)
@@ -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)