Prettify output

src/Crv/Scan.hs

@@ -49,7 +49,7 @@ gatherRepoInfo formatsSupport config root = do
     return $ RepoInfo (M.fromList fileInfos)
   where
     rootNE = if null root then "." else root
-    dirOfRoot = if null root then "" else takeDirectory root
+    dirOfRoot = if root == "" || root == "." then "" else takeDirectory root
     processFile file = do
         let ext = takeExtension file
         forM (formatsSupport ext) $ \scanFile ->

src/Crv/Verify.hs

@@ -99,7 +99,7 @@ instance Buildable CrvVerifyError where
         ExternalResourceUnavailable status ->
             "⛂  Resource unavailable (" +| statusCode status |+ " " +|
             decodeUtf8 @Text (statusMessage status) |+ ")"
-        ExternalResourceSomeError err -> "⛂  " +| build err |+ "\n"
+        ExternalResourceSomeError err -> "⛂  " +| build err |+ "\n\n"
       where
         anchorHints = \case
             []  -> "\n"