withBoolResult :: IO CBool -> IO Bool
withBoolResult io
  = do 
    x <- io
    return (fromCBool x)
withBoolResult :: IO CBool -> IO Bool
withBoolResult io
  = do 
    x <- io
    return (fromCBool x)
withBoolResult io
  = do 
    x <- io
    return (fromCBool x)