Remove bogus-looking check, which was causing Trac #7894
authorSimon Peyton Jones <simonpj@microsoft.com>
Tue, 28 May 2013 07:57:18 +0000 (08:57 +0100)
committerSimon Peyton Jones <simonpj@microsoft.com>
Thu, 6 Jun 2013 13:29:54 +0000 (14:29 +0100)
compiler/basicTypes/OccName.lhs

index 85e63df..2329e5f 100644 (file)
@@ -482,18 +482,12 @@ isValOcc (OccName DataName _) = True
 isValOcc _                    = False
 
 isDataOcc (OccName DataName _) = True
-isDataOcc (OccName VarName s)  
-  | isLexCon s = pprPanic "isDataOcc: check me" (ppr s)
-               -- Jan06: I don't think this should happen
 isDataOcc _                    = False
 
 -- | Test if the 'OccName' is a data constructor that starts with
 -- a symbol (e.g. @:@, or @[]@)
 isDataSymOcc :: OccName -> Bool
 isDataSymOcc (OccName DataName s) = isLexConSym s
-isDataSymOcc (OccName VarName s)  
-  | isLexConSym s = pprPanic "isDataSymOcc: check me" (ppr s)
-               -- Jan06: I don't think this should happen
 isDataSymOcc _                    = False
 -- Pretty inefficient!