sox 0.2.2.3 → 0.2.2.4

raw patch · 3 files changed

+30/−11 lines, 3 files

Files

• sox.cabal +2/−2
• src/Sound/Sox/Information.hs +20/−5
• src/Sound/Sox/Private/Information.hs +8/−4

@@ -1,5 +1,5 @@ Name:             sox-Version:          0.2.2.3+Version:          0.2.2.4 License:          GPL License-File:     LICENSE Author:           Henning Thielemann <haskell@henning-thielemann.de>@@ -41,7 +41,7 @@   default:     False  Source-Repository this-  Tag:         0.2.2.3+  Tag:         0.2.2.4   Type:        darcs   Location:    http://code.haskell.org/~thielema/sox/ 

@@ -7,10 +7,22 @@ such that we could do more efficiently, if 'soxi' supports multiple outputs in future. -}-module Sound.Sox.Information where+module Sound.Sox.Information (+   T(Cons),+   simple,+   format,+   sampleRate,+   numberOfChannels,+   length,+   bitsPerSample,+   get,+   exampleMulti,+   exampleSingle,+   ) where  import qualified Control.Monad.Trans.Reader as MR import Control.Applicative (Applicative, pure, liftA3, (<*>), )+import Data.String.HT (trim, ) import Text.Read.HT (maybeRead, )  import qualified System.Process as Proc@@ -56,17 +68,20 @@ format :: T String format = simple Just "-t" +simpleRead :: String -> T Int+simpleRead = simple (maybeRead . trim)+ sampleRate :: T Int-sampleRate = simple maybeRead "-r"+sampleRate = simpleRead "-r"  numberOfChannels :: T Int-numberOfChannels = simple maybeRead "-c"+numberOfChannels = simpleRead "-c"  length :: T Int-length = simple maybeRead "-s"+length = simpleRead "-s"  bitsPerSample :: T Int-bitsPerSample = simple maybeRead "-b"+bitsPerSample = simpleRead "-b"   

@@ -16,6 +16,7 @@ import Control.Applicative (Applicative, pure, liftA3, (<*>), ) import Data.Functor.Compose (Compose(Compose), ) import Data.List.HT (viewL, )+import Data.String.HT (trim, ) import Text.Read.HT (maybeRead, )  import qualified System.Process as Proc@@ -52,17 +53,20 @@ format :: T String format = simple Just "-t" +simpleRead :: String -> T Int+simpleRead = simple (maybeRead . trim)+ sampleRate :: T Int-sampleRate = simple maybeRead "-r"+sampleRate = simpleRead "-r"  numberOfChannels :: T Int-numberOfChannels = simple maybeRead "-c"+numberOfChannels = simpleRead "-c"  length :: T Int-length = simple maybeRead "-s"+length = simpleRead "-s"  bitsPerSample :: T Int-bitsPerSample = simple maybeRead "-b"+bitsPerSample = simpleRead "-b"