module Sound.Sox.Option.Format ( module Sound.Sox.Option.Format, T, single, ) where import Sound.Sox.Private.Option (T, single, ) import qualified Sound.Sox.Private.Format as Format import Data.Monoid (mempty, ) none :: T none :: T none = forall a. Monoid a => a mempty numberOfChannels :: Int -> T numberOfChannels :: Int -> T numberOfChannels Int n = String -> [String] -> T single String "-c" [forall a. Show a => a -> String show Int n] numberOfChannelsAuto :: Int -> T numberOfChannelsAuto :: Int -> T numberOfChannelsAuto Int n = if Int n forall a. Eq a => a -> a -> Bool == Int 1 then forall a. Monoid a => a mempty else Int -> T numberOfChannels Int n sampleRate :: Int -> T sampleRate :: Int -> T sampleRate Int r = String -> [String] -> T single String "-r" [forall a. Show a => a -> String show Int r] bitsPerSample :: Int -> T bitsPerSample :: Int -> T bitsPerSample Int b = String -> [String] -> T single String "-b" [forall a. Show a => a -> String show Int b] format :: Format.T -> T format :: T -> T format T fmt = String -> [String] -> T single String "-t" [T -> String Format.decons T fmt]