Make wiki links fit in 80 columns
This commit is contained in:
parent
a7a404a5a8
commit
66b5f13c6f
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue