summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2021-02-16 16:53:37 -0500
committerMarge Bot <ben+marge-bot@smart-cactus.org>2021-03-03 08:12:40 -0500
commit5c4dcc3e3735544bcc7c1bccbe7fd9e5db908c23 (patch)
treecf231947db3cca549dac124742b03a69dba18a3c
parente81f2e4e466cfefca9cae425a148030711a5b15f (diff)
downloadhaskell-5c4dcc3e3735544bcc7c1bccbe7fd9e5db908c23.tar.gz
ghc-heap: Fix profiled build
Previously a255b4e38918065ac028789872e53239ac30ae1a failed to update the non-profiling codepath.
-rw-r--r--libraries/ghc-heap/GHC/Exts/Heap/ProfInfo/PeekProfInfo_ProfilingEnabled.hsc4
1 files changed, 2 insertions, 2 deletions
diff --git a/libraries/ghc-heap/GHC/Exts/Heap/ProfInfo/PeekProfInfo_ProfilingEnabled.hsc b/libraries/ghc-heap/GHC/Exts/Heap/ProfInfo/PeekProfInfo_ProfilingEnabled.hsc
index 964b1f0b45..e6619c359c 100644
--- a/libraries/ghc-heap/GHC/Exts/Heap/ProfInfo/PeekProfInfo_ProfilingEnabled.hsc
+++ b/libraries/ghc-heap/GHC/Exts/Heap/ProfInfo/PeekProfInfo_ProfilingEnabled.hsc
@@ -165,8 +165,8 @@ import Foreign
import GHC.Exts.Heap.ProfInfo.Types
-peekStgTSOProfInfo :: Ptr a -> IO (Maybe StgTSOProfInfo)
-peekStgTSOProfInfo _ = return Nothing
+peekStgTSOProfInfo :: (Ptr b -> IO (Maybe CostCentreStack)) -> Ptr a -> IO (Maybe StgTSOProfInfo)
+peekStgTSOProfInfo _ _ = return Nothing
peekTopCCS :: Ptr a -> IO (Maybe CostCentreStack)
peekTopCCS _ = return Nothing