From b0c707e6f1fc03280ab45e34bec199740469e539 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Wed, 30 Mar 2022 14:33:32 -0400
Subject: Add isCab function

---
 Biz/Lint.hs | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

(limited to 'Biz/Lint.hs')

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|
-- 
cgit v1.2.3