diff options
| author | Mikhail Vorozhtsov <mikhail.vorozhtsov@gmail.com> | 2012-07-15 00:56:17 +0700 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-07-16 11:09:56 +0100 |
| commit | 73c36bca8d8ddcd9769368e6b2ffeef1ed1e6424 (patch) | |
| tree | a789966eae5ceb1c26b6cd3853cc78acbaa748e1 /libraries/template-haskell/Language/Haskell/TH/PprLib.hs | |
| parent | 219c653f8b851a8a04163389eac4825199a19980 (diff) | |
| download | haskell-73c36bca8d8ddcd9769368e6b2ffeef1ed1e6424.tar.gz | |
Added multi-way if-expressions support.
Diffstat (limited to 'libraries/template-haskell/Language/Haskell/TH/PprLib.hs')
| -rw-r--r-- | libraries/template-haskell/Language/Haskell/TH/PprLib.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/libraries/template-haskell/Language/Haskell/TH/PprLib.hs b/libraries/template-haskell/Language/Haskell/TH/PprLib.hs index e42c9865db..42856bb289 100644 --- a/libraries/template-haskell/Language/Haskell/TH/PprLib.hs +++ b/libraries/template-haskell/Language/Haskell/TH/PprLib.hs @@ -10,7 +10,7 @@ module Language.Haskell.TH.PprLib ( -- * Primitive Documents empty, - semi, comma, colon, space, equals, + semi, comma, colon, space, equals, arrow, lparen, rparen, lbrack, rbrack, lbrace, rbrace, -- * Converting values into documents @@ -63,6 +63,7 @@ comma :: Doc; -- ^ A ',' character colon :: Doc; -- ^ A ':' character space :: Doc; -- ^ A space character equals :: Doc; -- ^ A '=' character +arrow :: Doc; -- ^ A "->" string lparen :: Doc; -- ^ A '(' character rparen :: Doc; -- ^ A ')' character lbrack :: Doc; -- ^ A '[' character @@ -163,6 +164,7 @@ comma = return HPJ.comma colon = return HPJ.colon space = return HPJ.space equals = return HPJ.equals +arrow = return $ HPJ.text "->" lparen = return HPJ.lparen rparen = return HPJ.rparen lbrack = return HPJ.lbrack |