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)