mirror of
https://github.com/serokell/xrefcheck.git
synced 2024-09-11 13:37:36 +03:00
Prettify output
This commit is contained in:
parent
2f4101c361
commit
c59523ea61
@ -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 ->
|
||||
|
@ -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"
|
||||
|
Loading…
Reference in New Issue
Block a user