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]