From 4a1bea89351a26eefe571888f1b99d5d44b4ae07 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 23 Jul 2001 23:08:41 +0000
Subject: [PATCH] [project @ 2001-07-23 23:08:41 by sof] lex_demand: added a
 couple of missing cases for new demand type

---
 ghc/compiler/parser/Lex.lhs |    2 ++
 1 file changed, 2 insertions(+)

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#)
-- 
1.7.10.4