Fix exclude handling with explicit arguments

This logic would only apply our excludes to the arguments given, not the
files post-expanded. This means if you call `restyle .` it effectively
ignores excludes.

This was mostly fine as usage on a PR will always pass fully expanded
paths, but breaks locally, particularly in our integration tests where a
`.git` directory would be picked up by shebang.

The fix is to apply excludes after expansion, but we can also apply them
before as an optimization (no use expanding if excludes happen to hit at
that level already).

src/Restyler/Restyler/Run.hs

@@ -104,8 +104,20 @@ runRestylers
   => Config
   -> [FilePath]
   -> m (Maybe (NonEmpty RestylerResult))
-runRestylers config@Config {..} allPaths = do
-  paths <- findFiles $ filter included allPaths
+runRestylers config@Config {..} argPaths = do
+  let allPaths = filter included argPaths
+  expPaths <- findFiles allPaths
+  let paths = filter included expPaths
+
+  logDebug
+    $ "Paths"
+    :# [ "pathsGiven" .= argPaths
+       , "pathsGivenIncluded" .= allPaths
+       , "pathsExpanded" .= expPaths
+       , "pathsExpandedIncluded" .= paths
+       , "exclude" .= cExclude
+       ]
+
   for_ cRemoteFiles $ \rf -> downloadFile rf.url rf.path
   withFilteredPaths restylers paths $ runRestyler config
  where