diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2013-05-28 08:57:18 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2013-06-06 14:29:54 +0100 |
| commit | 9b817e5b31175d445a3b4ae8215d91dccf523072 (patch) | |
| tree | de26f740f47e3cdebb751174a6229e721087cd8a | |
| parent | a1a67b58d1fb32ee46809492bb01ac5d3a39d2dd (diff) | |
| download | haskell-9b817e5b31175d445a3b4ae8215d91dccf523072.tar.gz | |
Remove bogus-looking check, which was causing Trac #7894
| -rw-r--r-- | compiler/basicTypes/OccName.lhs | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/compiler/basicTypes/OccName.lhs b/compiler/basicTypes/OccName.lhs index 85e63dfef9..2329e5f815 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! |