Skip to content

common: Build failure on HEAD

As observed in this head.hackage CI job:

[5 of 8] Compiling GHC.Debug.Decode.Convert ( src/GHC/Debug/Decode/Convert.hs, dist/build/GHC/Debug/Decode/Convert.o, dist/build/GHC/Debug/Decode/Convert.dyn_o )
src/GHC/Debug/Decode/Convert.hs:31:5: error:
    • The constructor ‘GHC.TSOClosure’ should have 17 arguments, but has been given 16
    • In the pattern:
        GHC.TSOClosure _ a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15
                       a16
      In a case alternative:
          GHC.TSOClosure _ a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15
                         a16
            -> TSOClosure
                 itb a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16
      In the expression:
        case g of
          GHC.ConstrClosure _ a2 a3 _ _ _
            -> ConstrClosure itb a2 a3 (tableId itb)
          GHC.FunClosure _ a2 a3 -> FunClosure itb a2 a3
          GHC.ThunkClosure _ a2 a3 -> ThunkClosure itb a2 a3
          GHC.SelectorClosure _ a2 -> SelectorClosure itb a2
          GHC.IndClosure _ a2 -> IndClosure itb a2
          GHC.BCOClosure _ a2 a3 a4 a5 a6 a7
            -> BCOClosure itb a2 a3 a4 a5 a6 a7
          GHC.BlackholeClosure _ a2 -> BlackholeClosure itb a2
          GHC.ArrWordsClosure _ a2 a3 -> ArrWordsClosure itb a2 a3
          GHC.MutArrClosure _ a2 a3 a4 -> MutArrClosure itb a2 a3 a4
          GHC.SmallMutArrClosure _ a2 a3 -> SmallMutArrClosure itb a2 a3
          GHC.MVarClosure _ a2 a3 a4 -> MVarClosure itb a2 a3 a4
          GHC.MutVarClosure _ a2 -> MutVarClosure itb a2
          GHC.BlockingQueueClosure _ a2 a3 a4 a5
            -> BlockingQueueClosure itb a2 a3 a4 a5
          GHC.TSOClosure _ a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15
                         a16
            -> TSOClosure
                 itb a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16
          GHC.OtherClosure _ a2 a3 -> OtherClosure itb a2 a3
          GHC.WeakClosure _ a2 a3 a4 a5 a6
            -> let w_link = ... in WeakClosure itb a2 a3 a4 a5 w_link
          GHC.UnsupportedClosure _ -> UnsupportedClosure itb
          c -> error ("Unexpected closure type: " ++ show c)
   |
31 |     GHC.TSOClosure _ a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16 -> TSOClosure itb a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16
   |     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

This is a consequence of ghc@436867d6. Patch incoming.