{-# LINE 1 "src/System/GLib/Bool.hsc" #-}
{-# OPTIONS_GHC -Wall -fno-warn-tabs #-}

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

import Data.Int



gbooleanToBool :: Int32 -> Bool
{-# LINE 10 "src/System/GLib/Bool.hsc" #-}
gbooleanToBool 0 = False
{-# LINE 11 "src/System/GLib/Bool.hsc" #-}
gbooleanToBool 1 = True
{-# LINE 12 "src/System/GLib/Bool.hsc" #-}
gbooleanToBool _ = error "bad gboolean"

boolToGboolean :: Bool -> Int32
{-# LINE 15 "src/System/GLib/Bool.hsc" #-}
boolToGboolean False = 0
{-# LINE 16 "src/System/GLib/Bool.hsc" #-}
boolToGboolean True = 1
{-# LINE 17 "src/System/GLib/Bool.hsc" #-}