From 676bbe34d40fcd0c310830b7f15c8386896499d8 Mon Sep 17 00:00:00 2001 From: Neil Brown Date: Fri, 27 Mar 2009 21:40:14 +0000 Subject: [PATCH] Added a few missing lines in the constant folding --- common/EvalConstants.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/common/EvalConstants.hs b/common/EvalConstants.hs index a171ade..0c64e7e 100644 --- a/common/EvalConstants.hs +++ b/common/EvalConstants.hs @@ -137,6 +137,8 @@ conv :: Real a => a -> Rational conv = toRational occToRational :: OccValue -> Rational +occToRational (OccBool False) = 0 +occToRational (OccBool True) = 1 occToRational (OccByte x) = conv x occToRational (OccUInt16 x) = conv x occToRational (OccUInt32 x) = conv x