From 904d19a6a5b9f33069a10efadcb91aefaa5d9a9f Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Mon, 30 Mar 2009 15:28:38 +0000
Subject: [PATCH] Added a new VariableSizes constructor to Variable that will
 supplant SizeVariable and AllSizesVariable

---
 data/AST.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/data/AST.hs b/data/AST.hs
index e5bf3a3..f614293 100644
--- a/data/AST.hs
+++ b/data/AST.hs
@@ -250,6 +250,8 @@ data Variable =
   | DirectedVariable Meta Direction Variable
   -- | A dereferenced mobile variable (e.g. using MOBILE INT as INT)
   | DerefVariable Meta Variable
+  -- | The array sizes of the given variable.
+  | VariableSizes Meta Variable
   deriving (Show, Eq, Typeable, Data)
 
 -- | An expression.