diff options
| author | simonpj <unknown> | 2001-03-05 12:18:05 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 2001-03-05 12:18:05 +0000 |
| commit | e71eb9f04c7edb2bec5f4eb954f8d9cfa5062be2 (patch) | |
| tree | 2f2f758e6e44ce8092d5c6bcc1089146e1abf6ba | |
| parent | baf7143ab65b2723efdc69ea72f65ddd151fe591 (diff) | |
| download | haskell-e71eb9f04c7edb2bec5f4eb954f8d9cfa5062be2.tar.gz | |
[project @ 2001-03-05 12:18:05 by simonpj]
Remove dead isSysOcc
| -rw-r--r-- | ghc/compiler/basicTypes/OccName.lhs | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/ghc/compiler/basicTypes/OccName.lhs b/ghc/compiler/basicTypes/OccName.lhs index d14267bd80..95acfef354 100644 --- a/ghc/compiler/basicTypes/OccName.lhs +++ b/ghc/compiler/basicTypes/OccName.lhs @@ -20,7 +20,7 @@ module OccName ( mkDerivedTyConOcc, mkClassTyConOcc, mkClassDataConOcc, mkSpecOcc, mkGenOcc1, mkGenOcc2, - isSysOcc, isTvOcc, isDataOcc, isDataSymOcc, isSymOcc, isValOcc, + isTvOcc, isDataOcc, isDataSymOcc, isSymOcc, isValOcc, occNameFS, occNameString, occNameUserString, occNameSpace, occNameFlavour, setOccNameSpace, @@ -300,13 +300,6 @@ mkForeignExportOcc = mk_simple_deriv varName "$f" mkGenOcc1 = mk_simple_deriv varName "$gfrom" -- Generics mkGenOcc2 = mk_simple_deriv varName "$gto" -- Generics mk_simple_deriv sp px occ = mk_deriv sp px (occNameString occ) - - -isSysOcc :: OccName -> Bool -- True for all these '$' things -isSysOcc occ = case occNameUserString occ of - ('$' : _ ) -> True - other -> False -- We don't care about the ':' ones - -- isSysOcc is only called for Ids anyway \end{code} \begin{code} |