[commit: ghc] master: Allow '-' to be used as an infix type constructor. (df04d2d)

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/df04d2d875f4f17b04cd8bd396b62b1eadd932e8

>---------------------------------------------------------------

commit df04d2d875f4f17b04cd8bd396b62b1eadd932e8
Author: Iavor S. Diatchki <diatchki@Perun.(none)>
Date:   Sat Nov 10 12:24:25 2012 -0800

    Allow '-' to be used as an infix type constructor.

>---------------------------------------------------------------

 compiler/parser/Parser.y.pp |    1 +
 1 files changed, 1 insertions(+), 0 deletions(-)

diff --git a/compiler/parser/Parser.y.pp b/compiler/parser/Parser.y.pp
index 3c18498..3029930 100644
--- a/compiler/parser/Parser.y.pp
+++ b/compiler/parser/Parser.y.pp
@@ -1887,6 +1887,7 @@ tyconsym :: { Located RdrName }
         : CONSYM                        { L1 $! mkUnqual tcClsName (getCONSYM $1) }
         | VARSYM                        { L1 $! mkUnqual tcClsName (getVARSYM $1) }
         | '*'                           { L1 $! mkUnqual tcClsName (fsLit "*")    }
+        | '-'                           { L1 $! mkUnqual tcClsName (fsLit "-")    }
 
 
 -----------------------------------------------------------------------------