Allow '-' to be used as an infix type constructor.
authorIavor S. Diatchki <diatchki@Perun.(none)>
Sat, 10 Nov 2012 20:24:25 +0000 (12:24 -0800)
committerIavor S. Diatchki <diatchki@Perun.(none)>
Sat, 10 Nov 2012 20:24:25 +0000 (12:24 -0800)
compiler/parser/Parser.y.pp

index 3c18498..3029930 100644 (file)
@@ -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 "-")    }
 
 
 -----------------------------------------------------------------------------