[project @ 2003-07-01 10:31:43 by simonpj]

[ghc-hetmet.git] / ghc / compiler / hsSyn / HsImpExp.lhs

diff --git a/ghc/compiler/hsSyn/HsImpExp.lhs b/ghc/compiler/hsSyn/HsImpExp.lhs
index 52ce08b..9013967 100644 (file)
--- a/ghc/compiler/hsSyn/HsImpExp.lhs
+++ b/ghc/compiler/hsSyn/HsImpExp.lhs
@@ -112,6 +112,7 @@ isOperator ppr_v
        ('[':s)   -> False              -- []
        ('$':c:s) -> not (isAlpha c)    -- Don't treat $d as an operator
        (':':c:s) -> not (isAlpha c)    -- Don't treat :T as an operator
+       ('_':s)   -> False              -- Not an operator
        (c:s)     -> not (isAlpha c)    -- Starts with non-alpha
        other     -> False
     -- We use (showSDoc (ppr v)), rather than isSymOcc (getOccName v) simply so