diff --git a/WarcExport.hs b/WarcExport.hs
--- a/WarcExport.hs
+++ b/WarcExport.hs
@@ -6,8 +6,6 @@
 import System.IO
 import System.FilePath
 
-import Data.Attoparsec.ByteString.Char8
-import qualified Data.Text as T
 import qualified Data.ByteString.Char8 as BS
 import Control.Monad.IO.Class
 import Control.Monad.Catch
@@ -19,8 +17,7 @@
 import qualified Pipes.GZip as GZip
 import qualified Pipes.Prelude as PP
 import Data.Warc
-import Data.Warc.Header
-import Options.Applicative as O hiding (header)
+import Options.Applicative as O hiding (header, action)
 
 withFileProducer :: (MonadIO m, MonadMask m)
                  => FilePath
@@ -32,10 +29,6 @@
           | otherwise               = PBS.fromHandle h
     in action prod
 
-testHeader = do
-    f <- BS.readFile "bbc.warc"
-    print $ parse header f
-
 outFile :: Record m a -> Maybe FilePath
 outFile r = fileName <|> recId
   where
@@ -70,5 +63,7 @@
 
 main :: IO ()
 main = do
-    action <- execParser (info (helper <*> args) mempty)
+    action <- execParser
+              $ info (helper <*> args)
+                     (progDesc "Export items from a WARC file to individual files")
     action
diff --git a/warc.cabal b/warc.cabal
--- a/warc.cabal
+++ b/warc.cabal
@@ -1,5 +1,5 @@
 name:                warc
-version:             1.0.2
+version:             1.0.3
 synopsis:            A parser for the Web Archive (WARC) format
 description:         A streaming parser for the Web Archive (WARC) format.
 homepage:            http://github.com/bgamari/warc
@@ -45,7 +45,7 @@
                        filepath,
                        exceptions,
                        pipes-zlib,
-                       optparse-applicative >= 0.12 && < 0.14,
+                       optparse-applicative >= 0.12 && < 0.15,
                        pipes,
                        attoparsec,
                        bytestring,