diff options
| author | Ben Sima <ben@bsima.me> | 2022-03-30 14:33:32 -0400 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2022-03-30 14:33:32 -0400 |
| commit | b0c707e6f1fc03280ab45e34bec199740469e539 (patch) | |
| tree | 583d7b6ee8edeecf856ba2200d5896575bd34391 /Biz/Lint.hs | |
| parent | 377acdcc31e244153da7a4ef9af0638a6d496a1e (diff) | |
Add isCab function
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| |