Format.hs

module Sound.Sox.Format (
   module Sound.Sox.Format,
   T,
   ) where

import Sound.Sox.Private.Format (T(Cons), )


custom :: String -> T
custom = Cons

aiff :: T
aiff = custom "aiff"

wave :: T
wave = custom "wav"

ogg :: T
ogg = custom "ogg"

mp3 :: T
mp3 = custom "mp3"

iff8svx :: T
iff8svx = custom "8svx"


signedByte, unsignedByte :: T
signedByte   = custom "sb"
unsignedByte = custom "ub"

signedWord, unsignedWord :: T
signedWord   = custom "sw"
unsignedWord = custom "uw"

signedLong {-, unsignedLong-} :: T
signedLong   = custom "sl"
-- unsignedLong = custom "ul"