[Git][ghc/ghc][wip/fendor/ifacetype-delay-serialisation] MP fixes

[Matthew Pickering (@mpickering)]

Matthew Pickering pushed to branch wip/fendor/ifacetype-delay-serialisation at Glasgow Haskell Compiler / GHC


Commits:
2076ed5d by Matthew Pickering at 2024-04-11T10:38:01+01:00
MP fixes

- - - - -


2 changed files:

- compiler/GHC/Iface/Type.hs
- compiler/GHC/IfaceToCore.hs


Changes:

=====================================
compiler/GHC/Iface/Type.hs
=====================================
@@ -2210,7 +2210,7 @@ instance Binary IfaceType where
 putIfaceType :: WriteBinHandle -> IfaceType -> IO ()
 putIfaceType bh (IfaceSerialisedType fb) = do
   ity <- getIfaceType =<< thawBinHandle fb
-  put_ bh ity
+  putIfaceType bh ity
 
 putIfaceType _ (IfaceFreeTyVar tv)
    = pprPanic "Can't serialise IfaceFreeTyVar" (ppr tv)


=====================================
compiler/GHC/IfaceToCore.hs
=====================================
@@ -1385,8 +1385,8 @@ loop. See #19744.
 tcIfaceType :: IfaceType -> IfL Type
 tcIfaceType = go
   where
-    go (IfaceSerialisedType bs)  = do
-      deserialised <- liftIO (get @IfaceType =<< thawBinHandle bs)
+    go i@(IfaceSerialisedType bs)  = do
+      deserialised <- liftIO (getIfaceType =<< thawBinHandle bs)
       go deserialised
 
 



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/2076ed5d2193fef27ec89fb56da506d37921bca3

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/2076ed5d2193fef27ec89fb56da506d37921bca3
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20240411/24abf4fc/attachment-0001.html>