diff --git a/data/AST.hs b/data/AST.hs
index 872a392..34b8384 100644
--- a/data/AST.hs
+++ b/data/AST.hs
@@ -236,10 +236,10 @@ data ArrayConstr =
   -- | A simple integer range, beginning at the first value (inclusive) and ending at the second value (inclusive), with stepping 1.
   -- If the first value is bigger than the second, the effective value is an empty array.
   -- This will be transformed by an early pass into the second form (RepConstr).
-  RangeConstr Meta Expression Expression
+  RangeConstr Meta Type Expression Expression
   -- | A more general and powerful array constructor as used in occam-pi.
   -- The first item is the replicator, the second is the expression
-  | RepConstr Meta Replicator Expression
+  | RepConstr Meta Type Replicator Expression
   deriving (Show, Eq, Typeable, Data)