Fixing up formatting

Author: james-fossa

src/App/Fossa/Analyze/ScanSummary.hs

@@ -193,7 +193,7 @@ renderDefaultSkippedTargetHelp =
   ]
 
 summarize :: Config.AnalyzeConfig -> Text -> AnalysisScanResult -> Maybe ([Doc AnsiStyle])
-summarize cfg endpointVersion (AnalysisScanResult dps vsi binary ficus manualDeps dynamicLinkingDeps lernie reachabilityAttempts) =
+summarize cfg endpointVersion (AnalysisScanResult dps vsi binary _ manualDeps dynamicLinkingDeps lernie reachabilityAttempts) =
   if (numProjects totalScanCount <= 0)
     then Nothing
     else

src/App/Fossa/Ficus/Analyze.hs

@@ -44,7 +44,7 @@ import Fossa.API.Types (ApiKey (..), ApiOpts (..))
 import Path (Abs, Dir, File, Path, toFilePath)
 import Srclib.Types (Locator (..), renderLocator)
 import Text.URI (render)
-import Text.URI.Builder (PathComponent (..), TrailingSlash (..), setPath)
+import Text.URI.Builder ()
 import Types (GlobFilter (..), LicenseScanPathFilters (..))
 import Prelude hiding (unwords)
 
@@ -137,9 +137,14 @@ runFicus ficusConfig = do
     let messages = parseFicusJson result Nothing
 
     -- Log summary of results
-    logDebug $ "Ficus returned " <> pretty (length $ ficusMessageErrors messages) <> " errors, "
-             <> pretty (length $ ficusMessageDebugs messages) <> " debug messages, "
-             <> pretty (length $ ficusMessageFindings messages) <> " findings"
+    logDebug $
+      "Ficus returned "
+        <> pretty (length $ ficusMessageErrors messages)
+        <> " errors, "
+        <> pretty (length $ ficusMessageDebugs messages)
+        <> " debug messages, "
+        <> pretty (length $ ficusMessageFindings messages)
+        <> " findings"
 
     -- Handle errors - log them as warnings instead of fatal errors
     -- Many ficus errors are expected (like binary file detection) and shouldn't stop analysis
@@ -168,11 +173,12 @@ ficusCommand ficusConfig bin = do
     Just baseUri -> do
       pure $ render baseUri
     Nothing -> pure ""
-  pure $ Command
-    { cmdName = toText $ toPath bin
-    , cmdArgs = configArgs endpoint
-    , cmdAllowErr = Never
-    }
+  pure $
+    Command
+      { cmdName = toText $ toPath bin
+      , cmdArgs = configArgs endpoint
+      , cmdAllowErr = Never
+      }
   where
     configArgs endpoint = ["analyze", "--secret", secret, "--endpoint", endpoint, "--locator", locator, "--set", "all:skip-hidden-files", "--set", "all:gitignore"] ++ configExcludes ++ [targetDir]
     targetDir = toText $ toFilePath $ ficusConfigRootDir ficusConfig