From 5757e82b9344a3b012cf6d71c347ad727e57f8a3 Mon Sep 17 00:00:00 2001 From: Matthew Pickering Date: Fri, 20 Nov 2020 16:19:32 +0000 Subject: Remove special case for GHC.ByteCode.Instr This was added in https://github.com/nomeata/ghc-heap-view/commit/34935206e51b9c86902481d84d2f368a6fd93423 GHC.ByteCode.Instr.BreakInfo no longer exists so the special case is dead code. Any check like this can be easily dealt with in client code. --- libraries/ghc-heap/GHC/Exts/Heap.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'libraries/ghc-heap') diff --git a/libraries/ghc-heap/GHC/Exts/Heap.hs b/libraries/ghc-heap/GHC/Exts/Heap.hs index 7437398d90..27bd2969af 100644 --- a/libraries/ghc-heap/GHC/Exts/Heap.hs +++ b/libraries/ghc-heap/GHC/Exts/Heap.hs @@ -190,9 +190,7 @@ getClosureDataFromHeapRep heapRep infoTablePtr pts = do case tipe itbl of t | t >= CONSTR && t <= CONSTR_NOCAF -> do (p, m, n) <- dataConNames infoTablePtr - if m == "GHC.ByteCode.Instr" && n == "BreakInfo" - then pure $ UnsupportedClosure itbl - else pure $ ConstrClosure itbl pts npts p m n + pure $ ConstrClosure itbl pts npts p m n t | t >= THUNK && t <= THUNK_STATIC -> do pure $ ThunkClosure itbl pts npts -- cgit v1.2.1