projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
98744ce
)
[project @ 2003-11-17 14:28:49 by simonmar]
author
simonmar
<unknown>
Mon, 17 Nov 2003 14:28:49 +0000
(14:28 +0000)
committer
simonmar
<unknown>
Mon, 17 Nov 2003 14:28:49 +0000
(14:28 +0000)
GC dead code.
ghc/compiler/basicTypes/BasicTypes.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/basicTypes/BasicTypes.lhs
b/ghc/compiler/basicTypes/BasicTypes.lhs
index
cb08941
..
fbc6bc8
100644
(file)
--- a/
ghc/compiler/basicTypes/BasicTypes.lhs
+++ b/
ghc/compiler/basicTypes/BasicTypes.lhs
@@
-14,17
+14,15
@@
types that
\begin{code}
module BasicTypes(
\begin{code}
module BasicTypes(
- Version, bumpVersion, initialVersion, bogusVersion,
+ Version, bumpVersion, initialVersion,
Arity,
DeprecTxt,
Arity,
DeprecTxt,
- Unused, unused,
-
Fixity(..), FixityDirection(..),
defaultFixity, maxPrecedence,
Fixity(..), FixityDirection(..),
defaultFixity, maxPrecedence,
- arrowFixity, negateFixity, negatePrecedence,
+ negateFixity,
compareFixity,
IPName(..), ipNameName, mapIPName,
compareFixity,
IPName(..), ipNameName, mapIPName,
@@
-37,7
+35,7
@@
module BasicTypes(
Boxity(..), isBoxed,
Boxity(..), isBoxed,
- TupCon(..), tupParens, tupleParens,
+ TupCon(..), tupleParens,
OccInfo(..), seqOccInfo, isFragileOcc, isOneOcc,
isDeadOcc, isLoopBreaker,
OccInfo(..), seqOccInfo, isFragileOcc, isOneOcc,
isDeadOcc, isLoopBreaker,
@@
-63,22
+61,6
@@
import Outputable
%************************************************************************
%* *
%************************************************************************
%* *
-\subsection[Unused]{Unused}
-%* *
-%************************************************************************
-
-Used as a placeholder in types.
-
-\begin{code}
-type Unused = ()
-
-unused :: Unused
-unused = error "Unused is used!"
-\end{code}
-
-
-%************************************************************************
-%* *
\subsection[Arity]{Arity}
%* *
%************************************************************************
\subsection[Arity]{Arity}
%* *
%************************************************************************
@@
-97,9
+79,6
@@
type Arity = Int
\begin{code}
type Version = Int
\begin{code}
type Version = Int
-bogusVersion :: Version -- Shouldn't look at these
-bogusVersion = error "bogusVersion"
-
bumpVersion :: Version -> Version
bumpVersion v = v+1
bumpVersion :: Version -> Version
bumpVersion v = v+1
@@
-181,9
+160,6
@@
defaultFixity = Fixity maxPrecedence InfixL
negateFixity :: Fixity
negateFixity = Fixity negatePrecedence InfixL -- Precedence of unary negate is wired in as infixl 6!
negateFixity :: Fixity
negateFixity = Fixity negatePrecedence InfixL -- Precedence of unary negate is wired in as infixl 6!
-arrowFixity :: Fixity -- Fixity of '->' in types
-arrowFixity = Fixity 0 InfixR
-
negatePrecedence :: Int
negatePrecedence = 6
\end{code}
negatePrecedence :: Int
negatePrecedence = 6
\end{code}
@@
-316,9
+292,6
@@
data TupCon = TupCon Boxity Arity
instance Eq TupCon where
(TupCon b1 a1) == (TupCon b2 a2) = b1==b2 && a1==a2
instance Eq TupCon where
(TupCon b1 a1) == (TupCon b2 a2) = b1==b2 && a1==a2
-tupParens :: TupCon -> SDoc -> SDoc
-tupParens (TupCon b _) p = tupleParens b p
-
tupleParens :: Boxity -> SDoc -> SDoc
tupleParens Boxed p = parens p
tupleParens Unboxed p = ptext SLIT("(#") <+> p <+> ptext SLIT("#)")
tupleParens :: Boxity -> SDoc -> SDoc
tupleParens Boxed p = parens p
tupleParens Unboxed p = ptext SLIT("(#") <+> p <+> ptext SLIT("#)")