From 4b0e02a4cec50aa9c3a7a31f043f03d7033d66ef Mon Sep 17 00:00:00 2001
From: Adam Sampson <ats@offog.org>
Date: Thu, 3 May 2007 03:10:20 +0000
Subject: [PATCH] Apply dimensions to string literals too

---
 fco2/Parse.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/fco2/Parse.hs b/fco2/Parse.hs
index 813d710..2da76f9 100644
--- 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'"