Apply dimensions to string literals too

2007-05-03 03:10:20 +00:00 · 2007-05-03 03:10:20 +00:00 · 4b0e02a4ce
commit 4b0e02a4ce
parent 0c1413c8da
1 changed files with 2 additions and 3 deletions
--- a/fco2/Parse.hs
+++ b/fco2/Parse.hs
@ -776,7 +776,7 @@ table'
                   return t
                 <|> getTypeContext defT
           checkValidLiteralType defT t
-           return $ A.Literal m t s
+           return $ A.Literal m (applyDimensions defT t) s
    <|> do m <- md
           pushSubscriptTypeContext
           es <- tryXVX sLeft (sepBy1 expression sComma) sRight
@ -793,8 +793,7 @@ table'
                   return t
                 <|> getTypeContext defT
           checkValidLiteralType defT t
-           let t' = applyDimensions defT t
-           return $ A.Literal m t' array
+           return $ A.Literal m (applyDimensions defT t) array
    <|> maybeSliced table A.SubscriptedExpr typeOfExpression
    <?> "table'"