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