glib-stopgap-0.1.0.0: src/System/GLib/Bool.hsc

{-# OPTIONS_GHC -Wall -fno-warn-tabs #-}

module System.GLib.Bool (gbooleanToBool, boolToGboolean) where

import Data.Int

#include <glib.h>

gbooleanToBool :: #{type gboolean} -> Bool
gbooleanToBool #{const FALSE} = False
gbooleanToBool #{const TRUE} = True
gbooleanToBool _ = error "bad gboolean"

boolToGboolean :: Bool -> #{type gboolean}
boolToGboolean False = #{const FALSE}
boolToGboolean True = #{const TRUE}