Arguments.hs

module Sound.Sox.Private.Arguments where

import Data.Monoid (Monoid(..), )

newtype T = Cons {decons :: [String]}

instance Monoid T where
   mempty = Cons mempty
   mappend (Cons x) (Cons y) = Cons (mappend x y)

single :: String -> T
single x = Cons [x]

fileName :: FilePath -> T
fileName = single

pipe :: T
pipe = single "-"