Commit ca56668a authored by ian@well-typed.com's avatar ian@well-typed.com

Remove the trivial mkFastStringFastBytes wrapper

parent a243fa79
......@@ -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) }
......
......@@ -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 =
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment