From 2ab61a790fc197d0d4bc34ae531c554164e3af6b Mon Sep 17 00:00:00 2001
From: Adam Sampson <ats@offog.org>
Date: Wed, 25 Apr 2007 20:16:08 +0000
Subject: [PATCH] Array literals aren't "simple"

---
 fco2/EvalConstants.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/fco2/EvalConstants.hs b/fco2/EvalConstants.hs
index 59c301c..b042e6e 100644
--- a/fco2/EvalConstants.hs
+++ b/fco2/EvalConstants.hs
@@ -18,7 +18,9 @@ import Types
 -- | Attempt to simplify an expression as far as possible by precomputing
 -- constant bits.
 simplifyExpression :: ParseState -> A.Expression -> Either String A.Expression
--- Literals are "simple" already.
+-- Non-array literals are "simple" already.
+simplifyExpression _ e@(A.ExprLiteral _ (A.Literal _ _ (A.ArrayLiteral _ _)))
+    = Left "array literal"
 simplifyExpression _ e@(A.ExprLiteral _ _) = Right e
 simplifyExpression _ e@(A.True _) = Right e
 simplifyExpression _ e@(A.False _) = Right e