scan 0.1.0.6 → 0.1.0.7

raw patch · 2 files changed

+5/−5 lines, 2 filesdep ~parsec

Dependency ranges changed: parsec

Files

• scan.cabal +2/−2
• src/scan.hs +3/−3

@@ -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

@@ -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