module Numeric.COINOR.CLP.Debug where import qualified Numeric.COINOR.CLP.FFI as FFI import Foreign.Ptr (Ptr) initLog :: Ptr FFI.Simplex -> IO () initLog :: Ptr Simplex -> IO () initLog Ptr Simplex lp = Ptr Simplex -> CInt -> IO () FFI.setLogLevel Ptr Simplex lp CInt 0