[project @ 1999-03-25 13:13:51 by simonm]

[ghc-hetmet.git] / ghc / compiler / reader / Lex.lhs

diff --git a/ghc/compiler/reader/Lex.lhs b/ghc/compiler/reader/Lex.lhs
index 6bed0a8..74ab14a 100644 (file)
--- a/ghc/compiler/reader/Lex.lhs
+++ b/ghc/compiler/reader/Lex.lhs
@@ -142,7 +142,6 @@ data IfaceToken
   | ITstrict ([Demand], Bool)
   | ITscc
   | ITsccAllCafs
-  | ITsccAllDicts
 
   | ITdotdot                   -- reserved symbols
   | ITdcolon
@@ -355,7 +354,6 @@ lex_demand cont buf =
 lex_scc cont buf =
  case currentChar# buf of
   'C'# -> cont ITsccAllCafs  (stepOverLexeme (stepOn buf))
-  'D'# -> cont ITsccAllDicts (stepOverLexeme (stepOn buf))
   other -> cont ITscc buf
 
 -----------