{-# LINE 1 "Graphics/UI/SDL/Audio.hsc" #-}
{-# LINE 5 "Graphics/UI/SDL/Audio.hsc" #-}
module Graphics.UI.SDL.Audio
( AudioFormat (..)
, fromAudioFormat
, toAudioFormat
) where
import Data.Word (Word16)
data AudioFormat
= AudioU8
| AudioS8
| AudioU16LSB
| AudioS16LSB
| AudioU16MSB
| AudioS16MSB
| AudioU16Sys
| AudioS16Sys
deriving (Show,Eq,Ord,Enum)
fromAudioFormat :: AudioFormat -> Word16
fromAudioFormat AudioU8 = 8
{-# LINE 37 "Graphics/UI/SDL/Audio.hsc" #-}
fromAudioFormat AudioS8 = 32776
{-# LINE 38 "Graphics/UI/SDL/Audio.hsc" #-}
fromAudioFormat AudioU16LSB = 16
{-# LINE 39 "Graphics/UI/SDL/Audio.hsc" #-}
fromAudioFormat AudioS16LSB = 32784
{-# LINE 40 "Graphics/UI/SDL/Audio.hsc" #-}
fromAudioFormat AudioU16MSB = 4112
{-# LINE 41 "Graphics/UI/SDL/Audio.hsc" #-}
fromAudioFormat AudioS16MSB = 36880
{-# LINE 42 "Graphics/UI/SDL/Audio.hsc" #-}
fromAudioFormat AudioU16Sys = 16
{-# LINE 43 "Graphics/UI/SDL/Audio.hsc" #-}
fromAudioFormat AudioS16Sys = 32784
{-# LINE 44 "Graphics/UI/SDL/Audio.hsc" #-}
toAudioFormat :: Word16 -> AudioFormat
toAudioFormat 8 = AudioU8
{-# LINE 47 "Graphics/UI/SDL/Audio.hsc" #-}
toAudioFormat 32776 = AudioS8
{-# LINE 48 "Graphics/UI/SDL/Audio.hsc" #-}
toAudioFormat 16 = AudioU16LSB
{-# LINE 49 "Graphics/UI/SDL/Audio.hsc" #-}
toAudioFormat 32784 = AudioS16LSB
{-# LINE 50 "Graphics/UI/SDL/Audio.hsc" #-}
toAudioFormat 4112 = AudioU16MSB
{-# LINE 51 "Graphics/UI/SDL/Audio.hsc" #-}
toAudioFormat 36880 = AudioS16MSB
{-# LINE 52 "Graphics/UI/SDL/Audio.hsc" #-}
toAudioFormat _ = error "Graphics.UI.SDL.Audio.toAudioFormat: bad argument"