diff options
| author | Iavor S. Diatchki <diatchki@Perun.(none)> | 2012-11-10 12:24:25 -0800 |
|---|---|---|
| committer | Iavor S. Diatchki <diatchki@Perun.(none)> | 2012-11-10 12:24:25 -0800 |
| commit | df04d2d875f4f17b04cd8bd396b62b1eadd932e8 (patch) | |
| tree | 12ebe563ae6e146019a40d1399dafe98efaa24e3 /compiler | |
| parent | 1b02de8dd7a2eba0f8e136398e59ee2b9af85102 (diff) | |
| download | haskell-df04d2d875f4f17b04cd8bd396b62b1eadd932e8.tar.gz | |
Allow '-' to be used as an infix type constructor.
Diffstat (limited to 'compiler')
| -rw-r--r-- | 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 3c184989b1..3029930903 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 "-") } ----------------------------------------------------------------------------- |