[commit: ghc] master: Remove bogus-looking check, which was causing Trac #7894 (9b817e5)

[Simon Peyton Jones]

Repository : http://darcs.haskell.org/ghc.git/

On branch  : master

https://github.com/ghc/ghc/commit/9b817e5b31175d445a3b4ae8215d91dccf523072

>---------------------------------------------------------------

commit 9b817e5b31175d445a3b4ae8215d91dccf523072
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Tue May 28 08:57:18 2013 +0100

    Remove bogus-looking check, which was causing Trac #7894

>---------------------------------------------------------------

 compiler/basicTypes/OccName.lhs | 6 ------
 1 file changed, 6 deletions(-)

diff --git a/compiler/basicTypes/OccName.lhs b/compiler/basicTypes/OccName.lhs
index 85e63df..2329e5f 100644
--- a/compiler/basicTypes/OccName.lhs
+++ b/compiler/basicTypes/OccName.lhs
@@ -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!