{-# LINE 1 "src/LLVM/FFI/Base.hsc" #-} {-# LANGUAGE Safe #-} {-# LINE 2 "src/LLVM/FFI/Base.hsc" #-} module LLVM.FFI.Base where import qualified Data.Bool as Bool import Data.Int (Int32) import Prelude (Eq, Enum, Show, fromIntegral, show, fromEnum, toEnum, (.), (==)) {-# LINE 11 "src/LLVM/FFI/Base.hsc" #-} newtype Bool = Bool (Int32) {-# LINE 14 "src/LLVM/FFI/Base.hsc" #-} deriving (Eq) instance Enum Bool where fromEnum (Bool b) = fromIntegral b toEnum = Bool . fromIntegral instance Show Bool where show b = if b == false then "false" else "true" false, true :: Bool false = Bool 0; true = Bool 1 consBool :: Bool.Bool -> Bool consBool = toEnum . fromEnum deconsBool :: Bool -> Bool.Bool deconsBool = toEnum . fromEnum