diff options
Diffstat (limited to 'compiler/utils')
| -rw-r--r-- | compiler/utils/Binary.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/utils/Binary.hs b/compiler/utils/Binary.hs index 275b1a9b0f..565d162be6 100644 --- a/compiler/utils/Binary.hs +++ b/compiler/utils/Binary.hs @@ -724,8 +724,9 @@ putFS :: BinHandle -> FastString -> IO () putFS bh fs = putBS bh $ fastStringToByteString fs getFS :: BinHandle -> IO FastString -getFS bh = do bs <- getBS bh - return $! mkFastStringByteString bs +getFS bh = do + l <- get bh :: IO Int + getPrim bh l (\src -> pure $! mkFastStringBytes src l ) putBS :: BinHandle -> ByteString -> IO () putBS bh bs = |