unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-09-24 08:47:19 +03:00
Code Issues Projects Releases Wiki Activity

fix pretty printer to add a space in EffectBind

Browse Source
This commit is contained in:
Paul Chiusano 2019-03-05 09:54:04 -05:00
parent 0bfacc4b5a
commit c99b566ca3
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
parser-typechecker/src/Unison/TermPrinter.hs
View File

@ -335,8 +335,12 @@ prettyPattern n p vs patt = case patt of
Pattern.EffectBind _ ref i pats k_pat ->
let (pats_printed , tail_vs ) = patternsSep PP.softbreak vs pats
(k_pat_printed, eventual_tail) = prettyPattern n 0 tail_vs k_pat
in ("{" <> prettyHashQualified (PrettyPrintEnv.patternName n ref i)
<> (intercalateMap " " id [pats_printed, "->", k_pat_printed]) <>
in ("{" <>
(PP.sep " " . PP.nonEmpty $ [
prettyHashQualified (PrettyPrintEnv.patternName n ref i),
pats_printed,
"->",
k_pat_printed]) <>
"}"
, eventual_tail)
t -> (l "error: " <> l (show t), vs)