From 7baeb318f24b4e669f6989033a49773bc5dde9f3 Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Wed, 19 Mar 2008 13:21:42 +0000
Subject: [PATCH] Adjusted the Types module to use the new types in array
 constructors

---
 common/Types.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/common/Types.hs b/common/Types.hs
index 94470a6..de32dac 100644
--- a/common/Types.hs
+++ b/common/Types.hs
@@ -240,7 +240,8 @@ typeOfExpression e
                else typeOfArrayList [A.UnknownDimension] bt
         A.ExprConstr m (A.RepConstr _ rep e) -> 
           do t <- typeOfExpression e 
-             typeOfArrayList [A.Dimension $ countReplicator rep] t
+             count <- evalIntExpression $ countReplicator rep
+             typeOfArrayList [A.Dimension count] t
         A.AllocMobile _ t _ -> return t
 --}}}