From 591f4528375b0a049de6c15fe6d4ab476362f448 Mon Sep 17 00:00:00 2001 From: David Waern Date: Tue, 2 Oct 2007 14:34:59 +0000 Subject: [PATCH] FIX: add missing case to OccName.isSymOcc --- compiler/basicTypes/OccName.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/basicTypes/OccName.lhs b/compiler/basicTypes/OccName.lhs index b466741..13978e2 100644 --- a/compiler/basicTypes/OccName.lhs +++ b/compiler/basicTypes/OccName.lhs @@ -376,7 +376,7 @@ isDataOcc other = False isSymOcc (OccName DataName s) = isLexConSym s isSymOcc (OccName TcClsName s) = isLexConSym s isSymOcc (OccName VarName s) = isLexSym s -isSymOcc other = False +isSymOcc (OccName TvName s) = isLexSym s parenSymOcc :: OccName -> SDoc -> SDoc -- Wrap parens around an operator -- 1.7.10.4