diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2022-11-09 17:15:07 +0100 |
|---|---|---|
| committer | Sylvain Henry <sylvain@haskus.fr> | 2022-11-09 17:15:07 +0100 |
| commit | 3e1d171ef7adf527f5df0d8d5cc8de32f36f270a (patch) | |
| tree | 73db4a992759d398ed72e0a36ee9b20dbfefc1d2 | |
| parent | 4556033e37a93bb02c4c2c04433cf86d4be9ebe0 (diff) | |
| download | haskell-3e1d171ef7adf527f5df0d8d5cc8de32f36f270a.tar.gz | |
Make field lazywip/js-staging
| -rw-r--r-- | compiler/GHC/Utils/Binary.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Utils/Binary.hs b/compiler/GHC/Utils/Binary.hs index e0ece008b2..99d5a01665 100644 --- a/compiler/GHC/Utils/Binary.hs +++ b/compiler/GHC/Utils/Binary.hs @@ -172,7 +172,7 @@ handleData (BinMem _ ixr _ binr) = BinData <$> readFastMutInt ixr <*> readIORef data BinHandle = BinMem { -- binary data stored in an unboxed array - bh_usr :: !UserData, -- sigh, need parameterized modules :-) + bh_usr :: UserData, -- sigh, need parameterized modules :-) _off_r :: !FastMutInt, -- the current offset _sz_r :: !FastMutInt, -- size of the array (cached) _arr_r :: !(IORef BinArray) -- the array (bounds: (0,size-1)) |