slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Simon Michael 2022-08-14 08:51:53 +01:00
parent 3003a18c94
commit 101e2f7426
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger-lib/Hledger/Utils/Debug.hs
View File

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