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/Bild.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Biz/Bild.hs')

diff --git a/Biz/Bild.hs b/Biz/Bild.hs
index 7df1fae..43be7b0 100644
--- a/Biz/Bild.hs
+++ b/Biz/Bild.hs
@@ -151,7 +151,7 @@ move :: Cli.Arguments -> IO ()
 move args =
   IO.hSetBuffering stdout IO.NoBuffering
     >> pure (Cli.getAllArgs args (Cli.argument "target"))
-    /> filter (not <. ("_" `List.isPrefixOf`))
+    /> filter (not <. Namespace.isCab)
     +> filterM Dir.doesFileExist
     +> traverse (\fn -> analyze fn /> (fn,))
     /> filter (snd .> isJust)
-- 
cgit v1.2.3