suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Array literals aren't "simple"

Browse Source
This commit is contained in:
Adam Sampson 2007-04-25 20:16:08 +00:00
parent 818281542c
commit 2ab61a790f
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fco2/EvalConstants.hs
View File

@ -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