[project @ 1999-01-27 14:51:14 by simonpj]

[ghc-hetmet.git] / ghc / compiler / parser / id.c

diff --git a/ghc/compiler/parser/id.c b/ghc/compiler/parser/id.c
index 0ee41f8..a8dd95b 100644 (file)
--- a/ghc/compiler/parser/id.c
+++ b/ghc/compiler/parser/id.c
@@ -295,7 +295,7 @@ creategid(i)
 {
   switch(i) {
     case ARROWGID:
-      return(mkgid(i,install_literal("->")));
+      return(mkgid(i,install_literal("(->)")));
     case NILGID:
       return(mkgid(i,install_literal("[]")));
     case UNITGID: