diff --git a/sox.cabal b/sox.cabal
--- a/sox.cabal
+++ b/sox.cabal
@@ -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/
 
diff --git a/src/Sound/Sox/Information.hs b/src/Sound/Sox/Information.hs
--- a/src/Sound/Sox/Information.hs
+++ b/src/Sound/Sox/Information.hs
@@ -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"
 
 
 
diff --git a/src/Sound/Sox/Private/Information.hs b/src/Sound/Sox/Private/Information.hs
--- a/src/Sound/Sox/Private/Information.hs
+++ b/src/Sound/Sox/Private/Information.hs
@@ -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"