summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTeo Camarasu <teofilcamarasu@gmail.com>2022-04-19 20:31:59 +0100
committerMarge Bot <ben+marge-bot@smart-cactus.org>2022-04-28 18:58:28 -0400
commit292e39713e2e17ca902e575d6a41a6f95ee444b2 (patch)
treee6ad46080acc99869420e8213640171a845d0005
parentca1434e318872a2a3e4fab530423d2fc99254709 (diff)
downloadhaskell-292e39713e2e17ca902e575d6a41a6f95ee444b2.tar.gz
add since annotation for GHC.Stack.CCS.whereFrom
-rw-r--r--libraries/base/GHC/Stack/CCS.hsc2
1 files changed, 2 insertions, 0 deletions
diff --git a/libraries/base/GHC/Stack/CCS.hsc b/libraries/base/GHC/Stack/CCS.hsc
index a8af10a1a1..757acba114 100644
--- a/libraries/base/GHC/Stack/CCS.hsc
+++ b/libraries/base/GHC/Stack/CCS.hsc
@@ -196,6 +196,8 @@ peekInfoProv infop = do
-- The information is collect by looking at the info table address of a specific closure and
-- then consulting a specially generated map (by `-finfo-table-map`) to find out where we think
-- the best source position to describe that info table arose from.
+--
+-- @since 4.16.0.0
whereFrom :: a -> IO (Maybe InfoProv)
whereFrom obj = do
ipe <- getIPE obj