diff options
| author | Duncan Coutts <duncan@well-typed.com> | 2014-08-24 21:46:17 +0100 |
|---|---|---|
| committer | Edward Z. Yang <ezyang@cs.stanford.edu> | 2014-08-29 12:39:05 +0100 |
| commit | 1bc2a55542c487ff97455da5f39597bc25bbfa49 (patch) | |
| tree | 8d839f5d186b18b0e76e714615e94e1fbcf67025 /compiler/utils/Binary.hs | |
| parent | a4cb9a6173f0af76a32b812c022bbdd76b2abfac (diff) | |
| download | haskell-1bc2a55542c487ff97455da5f39597bc25bbfa49.tar.gz | |
Make mkFastStringByteString pure and fix up uses
It's morally pure, and we'll need it in a pure context.
Diffstat (limited to 'compiler/utils/Binary.hs')
| -rw-r--r-- | compiler/utils/Binary.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/utils/Binary.hs b/compiler/utils/Binary.hs index 0aa8c648b8..53ee903f2f 100644 --- a/compiler/utils/Binary.hs +++ b/compiler/utils/Binary.hs @@ -681,7 +681,7 @@ putFS bh fs = putBS bh $ fastStringToByteString fs getFS :: BinHandle -> IO FastString getFS bh = do bs <- getBS bh - mkFastStringByteString bs + return $! mkFastStringByteString bs putBS :: BinHandle -> ByteString -> IO () putBS bh bs = |