diff options
Diffstat (limited to 'Biz/Lint.hs')
| -rw-r--r-- | Biz/Lint.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/Biz/Lint.hs b/Biz/Lint.hs index 8d5a757..82e52cc 100644 --- a/Biz/Lint.hs +++ b/Biz/Lint.hs @@ -14,6 +14,7 @@ import Biz.Namespace (Ext (..), Namespace (..)) import qualified Biz.Namespace as Namespace import Biz.Test ((@=?)) import qualified Biz.Test as Test +import qualified Data.List as List import Data.Maybe (fromJust) import qualified Data.String as String import qualified Data.Text as Text @@ -31,7 +32,7 @@ move args = case Cli.getAllArgs args (Cli.argument "file") of [] -> changedFiles +> run shouldFix +> exit files -> files - |> filter notcab + |> filter (not <. Namespace.isCab) |> filterM Directory.doesFileExist +> run shouldFix +> exit @@ -47,10 +48,6 @@ test = length results @=? 2 ] -notcab :: FilePath -> Bool -notcab ('_' : _) = False -notcab _ = True - help :: Cli.Docopt help = [Cli.docopt| |