opencascade-hs-0.0.0.1: src/OpenCascade/Internal/Bool.hs

module OpenCascade.Internal.Bool
( boolToCBool 
, cBoolToBool
) where


import Foreign.C

boolToCBool :: Bool -> CBool 
boolToCBool b = if b then 1 else 0

cBoolToBool :: CBool -> Bool
cBoolToBool = (/=0)