synthesizer-llvm-0.3: src/Synthesizer/LLVM/Debug/StablePtr.hs

module Synthesizer.LLVM.Debug.StablePtr where

import Foreign.StablePtr (StablePtr, castStablePtrToPtr, )
import Control.Monad (when, )


{-# INLINE trace #-}
trace :: String -> StablePtr a -> IO (StablePtr a)
trace name s = do
   when False $
      putStrLn $ "EventIterator." ++ name ++ ": " ++ (show $ castStablePtrToPtr $ s)
   return s