never executed always true always false

    1 {-# LANGUAGE MagicHash, UnboxedTuples #-}
    2 
    3 -- | Utilities for GHCi.
    4 module GHCi.Util where
    5 
    6 -- NOTE: Avoid importing GHC modules here, because the primary purpose
    7 -- of this module is to not use UnboxedTuples in a module that imports
    8 -- lots of other modules.  See issue#13101 for more info.
    9 
   10 import GHC.Exts
   11 import GHC.Types
   12 
   13 anyToPtr :: a -> IO (Ptr ())
   14 anyToPtr x =
   15   IO (\s -> case anyToAddr# x s of
   16               (# s', addr #) -> (# s', Ptr addr #)) :: IO (Ptr ())