{-# OPTIONS_HADDOCK hide #-} -------------------------------------------------------------------------------- -- | -- Module : Sound.OpenAL.ALC.ALCboolean -- Copyright : (c) Sven Panne 2003-2016 -- License : BSD3 -- -- Maintainer : Sven Panne -- Stability : stable -- Portability : portable -- -- This is a purely internal module for (un-)marshaling ALCboolean. -- -------------------------------------------------------------------------------- module Sound.OpenAL.ALC.ALCboolean ( marshalALCboolean, unmarshalALCboolean ) where import Sound.OpenAL.ALC.BasicTypes import Sound.OpenAL.Constants -------------------------------------------------------------------------------- marshalALCboolean :: Bool -> ALCboolean marshalALCboolean False = alc_FALSE marshalALCboolean True = alc_TRUE unmarshalALCboolean :: ALCboolean -> Bool unmarshalALCboolean = (/= alc_FALSE)