diff options
| author | Alan Zimmerman <alan.zimm@gmail.com> | 2022-10-20 20:00:49 +0100 |
|---|---|---|
| committer | Alan Zimmerman <alan.zimm@gmail.com> | 2022-10-20 23:26:40 +0100 |
| commit | 5951a3173144636c646d8987b9e2e6baa60c3842 (patch) | |
| tree | ba6d5ee9008e01fbe3d29a629a496138cbee6a1a /compiler/GHC/Utils/Binary.hs | |
| parent | b17cfc9c4b341e122294c0701803fc8f521fa210 (diff) | |
| download | haskell-wip/az/bufspan-in-anchor.tar.gz | |
Diffstat (limited to 'compiler/GHC/Utils/Binary.hs')
| -rw-r--r-- | compiler/GHC/Utils/Binary.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/compiler/GHC/Utils/Binary.hs b/compiler/GHC/Utils/Binary.hs index f224589ee0..aa9848c707 100644 --- a/compiler/GHC/Utils/Binary.hs +++ b/compiler/GHC/Utils/Binary.hs @@ -1310,7 +1310,8 @@ instance Binary RealSrcSpan where el <- get bh ec <- get bh return (mkRealSrcSpan (mkRealSrcLoc f sl sc) - (mkRealSrcLoc f el ec)) + (mkRealSrcLoc f el ec) + Strict.Nothing) instance Binary UnhelpfulSpanReason where put_ bh r = case r of @@ -1330,7 +1331,7 @@ instance Binary UnhelpfulSpanReason where _ -> UnhelpfulOther <$> get bh instance Binary SrcSpan where - put_ bh (RealSrcSpan ss _sb) = do + put_ bh (RealSrcSpan ss) = do putByte bh 0 -- BufSpan doesn't ever get serialised because the positions depend -- on build location. @@ -1344,7 +1345,7 @@ instance Binary SrcSpan where h <- getByte bh case h of 0 -> do ss <- get bh - return (RealSrcSpan ss Strict.Nothing) + return (RealSrcSpan ss) _ -> do s <- get bh return (UnhelpfulSpan s) |