diff options
| author | John Leo <leo@halfaya.org> | 2015-11-07 17:28:37 -0500 |
|---|---|---|
| committer | Richard Eisenberg <eir@cis.upenn.edu> | 2015-11-07 17:31:06 -0500 |
| commit | be8858570274821546ccabf75fe01c3dad80e337 (patch) | |
| tree | 46312cca755f0137aae9a58ec62f8887e8ad4253 /libraries/template-haskell/Language | |
| parent | 6e6438e15f33cb94ad6338e950e693f59d046385 (diff) | |
| download | haskell-be8858570274821546ccabf75fe01c3dad80e337.tar.gz | |
fix #10734 by adding braces to pretty-printing of let inside doarcpatch-D1448
Test Plan: validate
Reviewers: bgamari, austin, goldfire
Reviewed By: goldfire
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D1448
GHC Trac Issues: #10734
Diffstat (limited to 'libraries/template-haskell/Language')
| -rw-r--r-- | libraries/template-haskell/Language/Haskell/TH/Ppr.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/template-haskell/Language/Haskell/TH/Ppr.hs b/libraries/template-haskell/Language/Haskell/TH/Ppr.hs index 1768b1550e..223137332f 100644 --- a/libraries/template-haskell/Language/Haskell/TH/Ppr.hs +++ b/libraries/template-haskell/Language/Haskell/TH/Ppr.hs @@ -184,7 +184,7 @@ pprMaybeExp i (Just e) = pprExp i e ------------------------------ instance Ppr Stmt where ppr (BindS p e) = ppr p <+> text "<-" <+> ppr e - ppr (LetS ds) = text "let" <+> ppr ds + ppr (LetS ds) = text "let" <+> (braces $ sep $ punctuate semi $ map ppr ds) ppr (NoBindS e) = ppr e ppr (ParS sss) = sep $ punctuate (text "|") $ map (sep . punctuate comma . map ppr) sss |