-- GENERATED by C->Haskell Compiler, version 0.26.1 Budburst, 4 April 2015 (Haskell) -- Edit the ORIGNAL .chs file instead! {-# LINE 1 "src/Sound/ALC/Errors.chs" #-} ----------------------------------------------------------------------------- -- | -- Copyright : (C) 2015 Dimitri Sabadie -- License : BSD3 -- -- Maintainer : Dimitri Sabadie <dimitri.sabadie@gmail.com> -- Stability : experimental -- Portability : portable ---------------------------------------------------------------------------- module Sound.ALC.Errors where import Control.Monad.Trans ( MonadIO(..) ) import Foreign.C.Types import Sound.ALC.Types foreign import CALLCV "alcGetError" alcGetError_ :: IO ALCenum alcGetError :: (MonadIO m) => m ALCenum alcGetError = liftIO alcGetError_