diff options
Diffstat (limited to 'Biz/Bild.hs')
| -rw-r--r-- | Biz/Bild.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) |