diff --git a/dephd.cabal b/dephd.cabal
--- a/dephd.cabal
+++ b/dephd.cabal
@@ -1,5 +1,5 @@
 Name:           dephd
-Version:        0.1.5
+Version:        0.1.6
 License:        GPL
 License-File:   LICENSE
 
@@ -26,19 +26,20 @@
                 The Darcs repository is at <http://malde.org/~ketil/biohaskell/dephd>.
 
 HomePage:	http://malde.org/~ketil/biohaskell/dephd
-Build-Depends:  base>=3 && <5, bio > 0.4, regex-compat, bytestring, process, directory, cmdargs <= 0.1.1
 Build-Type:     Simple
-Cabal-Version:	>= 1.2.3
+Cabal-Version:	>= 1.6
 Tested-with:    GHC==6.12.1
-
 Data-files:     README, TODO
-Executable:     dephd
-Main-Is:        Dephd.hs
-Hs-Source-Dirs: src
-Extensions: 	BangPatterns
-Ghc-Options:    -Wall
 
-Executable: 	fakequal
-Main-Is:	FakeQual.hs
-Hs-Source-Dirs: src
-Extensions:	DeriveDataTypeable
+Executable dephd
+  Main-Is:        Dephd.hs
+  Hs-Source-Dirs: src
+  Extensions: 	  BangPatterns
+  Build-Depends:  base >= 3 && <5, bio > 0.4, bytestring, regex-compat, process, directory
+  Ghc-Options:    -Wall
+
+Executable fakequal
+  Main-Is:	  FakeQual.hs
+  Hs-Source-Dirs: src
+  Build-Depends:  bio > 0.4, cmdargs >= 0.5
+  Extensions:	  DeriveDataTypeable
diff --git a/src/FakeQual.hs b/src/FakeQual.hs
--- a/src/FakeQual.hs
+++ b/src/FakeQual.hs
@@ -17,13 +17,13 @@
 data Opts = O { qval :: Int, input :: [FilePath] } 
           deriving (Show,Data,Typeable)
 
-modes = mode $ O { qval = 15 &= text "value to use for quality" & typ "Int" & flag "q"
-                 , input = def &= args & typFile }
-                 &= prog "fakequal" 
-                 & text "generate fake quality information for fasta files"
+myopts = O { qval = 15 &= help "value to use for quality" &= typ "Int" &= name "q"
+           , input = def &= args &= typFile }
+         &= program "fakequal" 
+         &= summary "generate fake quality information for fasta files"
 
 main = do
-  cf <- cmdArgs version [modes]
+  cf <- cmdArgs myopts
   -- print cf
   ss <- if null (input cf) then hReadFasta stdin
         else concat `fmap` mapM readFasta (input cf)