From: sof <unknown>
Date: Mon, 23 Jul 2001 23:08:41 +0000 (+0000)
Subject: [project @ 2001-07-23 23:08:41 by sof]
X-Git-Tag: Approximately_9120_patches~1462
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=4a1bea89351a26eefe571888f1b99d5d44b4ae07;p=ghc-hetmet.git

[project @ 2001-07-23 23:08:41 by sof]
lex_demand: added a couple of missing cases for new demand type
---

diff --git a/ghc/compiler/parser/Lex.lhs b/ghc/compiler/parser/Lex.lhs
index bcafcb5..fba97ed 100644
--- a/ghc/compiler/parser/Lex.lhs
+++ b/ghc/compiler/parser/Lex.lhs
@@ -830,6 +830,8 @@ lex_demand cont buf =
     'L'# -> read_em (Lazy : acc) (stepOn buf)
     'A'# -> read_em (Abs : acc) (stepOn buf)
     'V'# -> read_em (Eval : acc) (stepOn buf)
+    'X'# -> read_em (Err : acc) (stepOn buf)
+    'B'# -> read_em (Bot : acc) (stepOn buf)
     ')'# -> (reverse acc, stepOn buf)
     'C'# -> do_call acc (stepOnBy# buf 2#)
     'U'# -> do_unpack1 Drop Now acc (stepOnBy# buf 1#)