+class Frame fr where
+ frameFmt ∷ fr → C'esd_format_t
+
+instance Frame Int8 where
+ frameFmt _ = c'ESD_BITS8
+
+instance Frame Int16 where
+ frameFmt _ = c'ESD_BITS16
+
+class Channels ch where
+ channelFmt ∷ ch → C'esd_format_t
+
+data Mono
+instance Channels Mono where
+ channelFmt _ = c'ESD_MONO
+
+data Stereo
+instance Channels Stereo where
+ channelFmt _ = c'ESD_STEREO
+
+