-- GENERATED by C->Haskell Compiler, version 0.25.2 Snowboundest, 31 Oct 2014 (Haskell)
-- Edit the ORIGNAL .chs file instead!


{-# LINE 1 "src/Sound/AL/Errors.chs" #-}
-----------------------------------------------------------------------------
-- |
-- Copyright   : (C) 2015 Dimitri Sabadie
-- License     : BSD3
--
-- Maintainer  : Dimitri Sabadie <dimitri.sabadie@gmail.com>
-- Stability   : experimental
-- Portability : portable
----------------------------------------------------------------------------

module Sound.AL.Errors where

import Control.Monad.Trans ( MonadIO(..) )
import Foreign.C.Types
import Sound.AL.Types



foreign import CALLCV "alGetError" alGetError_ :: IO ALenum
alGetError :: (MonadIO m) => m ALenum
alGetError = liftIO alGetError_