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

2022-08-14 08:51:53 +01:00 · 2022-08-14 08:51:53 +01:00 · 101e2f7426
commit 101e2f7426
parent 3003a18c94
1 changed files with 1 additions and 1 deletions
--- a/hledger-lib/Hledger/Utils/Debug.hs
+++ b/hledger-lib/Hledger/Utils/Debug.hs
@ -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