Marge Bot pushed to branch master at Glasgow Haskell Compiler / GHC
Commits:
-
7eb0f1c9
by Cheng Shao at 2026-07-14T18:02:31-04:00
1 changed file:
Changes:
| ... | ... | @@ -3,10 +3,8 @@ module BytecodeIPE where |
| 3 | 3 | import Data.Maybe (isJust)
|
| 4 | 4 | import GHC.InfoProv (whereFrom)
|
| 5 | 5 | |
| 6 | -marker :: String
|
|
| 7 | -marker = id "bytecode-stub-init"
|
|
| 8 | -{-# NOINLINE marker #-}
|
|
| 6 | +data Marker = Marker
|
|
| 9 | 7 | |
| 10 | 8 | -- `whereFrom` only succeeds if the module's IPE initializer ran.
|
| 11 | 9 | probe :: IO Bool
|
| 12 | -probe = isJust <$> whereFrom marker |
|
| 10 | +probe = isJust <$> whereFrom Marker |