Cheng Shao pushed to branch wip/fix-ipe-bytecodeIPE-test at Glasgow Haskell Compiler / GHC

Commits:

1 changed file:

Changes:

  • testsuite/tests/ghci/scripts/bytecodeIPE.hs
    ... ... @@ -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