Browse Source

first pretty for records

main
soupi 1 year ago
parent
commit
19bc6fd79d
1 changed files with 1 additions and 1 deletions
  1. +1
    -1
      src/Language/Logi/Pretty.hs

+ 1
- 1
src/Language/Logi/Pretty.hs View File

@@ -35,7 +35,7 @@ ppExpr = \case
EApp name exprs ->
hcat [pretty name, tupled (map ppExpr exprs)]
ERecord (M.toList -> mapping) ->
list $ map
group $ align $ encloseSep "{" "}" ", " $ map
(\(k,v) -> pretty k <+> "=" <+> ppExpr v)
mapping



Loading…
Cancel
Save