diff options
author | Matthew Pickering <matthewtpickering@gmail.com> | 2020-11-20 16:19:32 +0000 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-11-26 16:00:35 -0500 |
commit | 5757e82b9344a3b012cf6d71c347ad727e57f8a3 (patch) | |
tree | 0f9c5990c1619e797fef37e34b15316ee27800fe | |
parent | 86a59d930fa6ab0889792c1d67b1d29ba1edec1f (diff) | |
download | haskell-5757e82b9344a3b012cf6d71c347ad727e57f8a3.tar.gz |
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.
-rw-r--r-- | libraries/ghc-heap/GHC/Exts/Heap.hs | 4 |
1 files changed, 1 insertions, 3 deletions
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 |