From 32959ad3a3d3c718a39f573c9b7d2fc29f200562 Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Thu, 7 Feb 2008 00:25:30 +0000
Subject: [PATCH] Fixed a part of ArrayUsageCheck to make sure it generates
 valid arrays

---
 checks/ArrayUsageCheck.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/checks/ArrayUsageCheck.hs b/checks/ArrayUsageCheck.hs
index c653fd9..7b64e0a 100644
--- a/checks/ArrayUsageCheck.hs
+++ b/checks/ArrayUsageCheck.hs
@@ -515,7 +515,7 @@ squareAndPair (bkEq, bkIneq) repVars s v lh
       where
         extraIneq :: InequalityProblem
           -- prime >= plain + 1  (prime - plain - 1 >= 0)
-        extraIneq = [simpleArray [(prime,1), (plain,-1), (0, -1)]]
+        extraIneq = [mapToArray $ Map.fromList [(prime,1), (plain,-1), (0, -1)]]
 
 getSingleAccessItem :: MonadTrans m => String -> ArrayAccess label -> m (Either String) EqualityConstraintEquation
 getSingleAccessItem _ (Group [(_,_,(acc,_,_))]) = lift $ return acc