mirror of
https://github.com/danneu/html-parser.git
synced 2024-11-28 22:32:00 +03:00
Fix pretty string
This commit is contained in:
parent
db2674df76
commit
288da39c90
@ -866,11 +866,11 @@ prettyNode_ indent node_ =
|
||||
let
|
||||
ss =
|
||||
s
|
||||
|> String.trim
|
||||
|> String.split "\n"
|
||||
|> List.filter (String.trim >> String.isEmpty >> not)
|
||||
|> String.join ("\n" ++ String.padLeft (indent * 4) ' ' "")
|
||||
in
|
||||
-- "\n" ++ pad ++ s
|
||||
"\n" ++ pad ++ ss
|
||||
|
||||
Comment s ->
|
||||
|
Loading…
Reference in New Issue
Block a user