Debug.hs

module Numeric.HiGHS.LP.Debug where

import qualified Numeric.HiGHS.LP.FFI as FFI
import Numeric.HiGHS.LP.Private (setBoolOptionValue)
import Foreign.Ptr (Ptr)


initLog :: Ptr FFI.Highs -> IO ()
initLog model = setBoolOptionValue model "output_flag" FFI.true