[Git][ghc/ghc][wip/mi_top_env_serialise] Apply 2 suggestion(s) to 2 file(s)

[Matthew Pickering (@mpickering)]

Matthew Pickering pushed to branch wip/mi_top_env_serialise at Glasgow Haskell Compiler / GHC


Commits:
1af21fd6 by Matthew Pickering at 2025-03-03T11:47:58+00:00
Apply 2 suggestion(s) to 2 file(s)

Co-authored-by: Rodrigo Mesquita <rodrigo.m.mesquita at gmail.com>
- - - - -


2 changed files:

- compiler/GHC/Iface/Syntax.hs
- compiler/GHC/Types/PkgQual.hs


Changes:

=====================================
compiler/GHC/Iface/Syntax.hs
=====================================
@@ -152,9 +152,10 @@ instance Binary ImpIfaceList where
       1 -> do
         env <- get bh
         return (ImpIfaceExplicit env)
-      _ -> do
+      2 -> do
         ns <- get @[Name] bh
         return (ImpIfaceEverythingBut ns)
+      _ -> fail "instance Binary ImpIfaceList: Invalid tag"
 
 -- | A binding top-level 'Name' in an interface file (e.g. the name of an
 -- 'IfaceDecl').


=====================================
compiler/GHC/Types/PkgQual.hs
=====================================
@@ -54,7 +54,7 @@ instance Binary PkgQual where
       0 -> return NoPkgQual
       1 -> do u <- get bh
               return (ThisPkg u)
-      _ -> do u <- get bh
+      2 -> do u <- get bh
               return (OtherPkg u)
-
+      _ -> fail "instance Binary PkgQual: Invalid tag"
 



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/1af21fd68dce20985cdb6701cfeb926a8f631884

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/1af21fd68dce20985cdb6701cfeb926a8f631884
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/20250303/0e708347/attachment-0001.html>