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

Apply dimensions to string literals too

Browse Source
This commit is contained in:
Adam Sampson 2007-05-03 03:10:20 +00:00
parent 0c1413c8da
commit 4b0e02a4ce
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fco2/Parse.hs
View File

@ -776,7 +776,7 @@ table'
return t return t
<|> getTypeContext defT <|> getTypeContext defT
checkValidLiteralType defT t checkValidLiteralType defT t
return $ A.Literal m t s return $ A.Literal m (applyDimensions defT t) s
<|> do m <- md <|> do m <- md
pushSubscriptTypeContext pushSubscriptTypeContext
es <- tryXVX sLeft (sepBy1 expression sComma) sRight es <- tryXVX sLeft (sepBy1 expression sComma) sRight
@ -793,8 +793,7 @@ table'
return t return t
<|> getTypeContext defT <|> getTypeContext defT
checkValidLiteralType defT t checkValidLiteralType defT t
let t' = applyDimensions defT t return $ A.Literal m (applyDimensions defT t) array
return $ A.Literal m t' array
<|> maybeSliced table A.SubscriptedExpr typeOfExpression <|> maybeSliced table A.SubscriptedExpr typeOfExpression
<?> "table'" <?> "table'"