diff --git a/scan.cabal b/scan.cabal
--- a/scan.cabal
+++ b/scan.cabal
@@ -1,7 +1,7 @@
 cabal-version:      >= 1.4
 build-type:         Simple
 name:               scan
-version:            0.1.0.6
+version:            0.1.0.7
 license:            BSD3
 license-file:       doc/LICENSE
 category:           Development
@@ -17,7 +17,7 @@
 stability:          experimental
 
 executable scan
-    build-depends:      base < 5, parsec < 3
+    build-depends:      base < 5, parsec
     hs-source-dirs:     src
     main-is:            scan.hs
     other-modules:      Language.Haskell.Scanner
diff --git a/src/scan.hs b/src/scan.hs
--- a/src/scan.hs
+++ b/src/scan.hs
@@ -35,7 +35,7 @@
 
 -- | the hard-coded version string.
 version :: String
-version = "scan-0.1.0.6 http://projects.haskell.org/style-scanner/"
+version = "scan-0.1.0.7 http://projects.haskell.org/style-scanner/"
 
 data Flag =
     Help
@@ -82,7 +82,7 @@
     , Option "g" ["comment-gap"] (ReqArg (CommentGap . readN) "<n>")
       "spaces between joined comments (default -g0)"
     , Option "b" ["blank-lines"] (ReqArg (MaxBlankLines . readN) "<n>")
-      "remove more than <n> blank lines (default -r2)"
+      "remove more than <n> blank lines (default -b2)"
     , Option "i" ["inplace-modify"] (OptArg (BackupExt . fromMaybe "") "<ext>")
       "modify file in place (backup if <ext> given)"
     , Option "e" ["extension"] (ReqArg OutputExt "<ext>")
@@ -280,7 +280,7 @@
 badChars :: SourcePos -> String -> [Diag]
 badChars p s =
   let h : r = splitBy (\ c -> not $ isAscii c && isPrint c) s
-  in snd $ mapAccumL (\ q t@(f : _) ->
+  in snd $ mapAccumL (\ q t -> let f : _ = t in
             (updatePosString q t, Diag (updatePosChar q f)
             $ "undesirable character " ++ show f))
          (updatePosString p h) r