-- this module is for GHC; GSL
module Compatibility
       ( double2Float
       , yield
       , debugMsgLn
       , setDebug
       , mkWeakIORef
       , toInt
       , fromInt
       ) where
import GlaExts 

import NumExts(doubleToFloat)

import IOExts
import Concurrent
import Exception

double2Float = doubleToFloat

setDebug :: Bool -> IO ()
setDebug _ = return ()

debugMsgLn :: String -> IO ()
debugMsgLn s = assert (trace s `seq` True) $ return () 


