Make wiki links fit in 80 columns

This commit is contained in:
Vidar Holen 2018-12-02 19:07:45 -08:00
parent a7a404a5a8
commit 66b5f13c6f
1 changed files with 1 additions and 1 deletions

View File

@ -94,7 +94,7 @@ outputWiki errRef = do
where
showErr (_, code, msg) =
putStrLn $ " " ++ wikiLink ++ "SC" ++ show code ++ " -- " ++ shorten msg
limit = 40
limit = 36
shorten msg =
if length msg < limit
then msg