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 where
showErr (_, code, msg) = showErr (_, code, msg) =
putStrLn $ " " ++ wikiLink ++ "SC" ++ show code ++ " -- " ++ shorten msg putStrLn $ " " ++ wikiLink ++ "SC" ++ show code ++ " -- " ++ shorten msg
limit = 40 limit = 36
shorten msg = shorten msg =
if length msg < limit if length msg < limit
then msg then msg