module OpenCascade.Internal.Bool ( boolToCBool , cBoolToBool ) where import Foreign.C boolToCBool :: Bool -> CBool boolToCBool :: Bool -> CBool boolToCBool Bool b = if Bool b then CBool 1 else CBool 0 cBoolToBool :: CBool -> Bool cBoolToBool :: CBool -> Bool cBoolToBool = (CBool -> CBool -> Bool forall a. Eq a => a -> a -> Bool /=CBool 0)