imp: add a missing space after colon in some debug output

This commit is contained in:
Simon Michael 2022-08-14 08:51:53 +01:00
parent 3003a18c94
commit 101e2f7426

View File

@ -287,7 +287,7 @@ ptraceAt level
| otherwise = \s a -> let p = pshow a
ls = lines p
nlorspace | length ls > 1 = "\n"
| otherwise = replicate (11 - length s) ' '
| otherwise = replicate (max 1 $ 11 - length s) ' '
ls' | length ls > 1 = map (' ':) ls
| otherwise = ls
in trace (s++":"++nlorspace++intercalate "\n" ls') a