{-# 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" #-}