diff --git a/common/TestUtils.hs b/common/TestUtils.hs
index 446faf5..3d888f7 100644
--- a/common/TestUtils.hs
+++ b/common/TestUtils.hs
@@ -234,10 +234,10 @@ makeAssignPattern v e = tag3 A.Assign DontCare [v] $ tag2 A.ExpressionList DontC
  
 -- | Creates a literal string expression from the given 'String'.
 makeLiteralStringRain :: String -> A.Expression
-makeLiteralStringRain str = A.Literal emptyMeta (A.List A.Byte) (A.ArrayLiteral emptyMeta (map makeLiteralChar str))
+makeLiteralStringRain str = A.Literal emptyMeta (A.List A.Byte) (A.ListLiteral emptyMeta (map makeLiteralChar str))
   where
-    makeLiteralChar :: Char -> A.ArrayElem
-    makeLiteralChar c = A.ArrayElemExpr $ A.Literal emptyMeta A.Byte (A.ByteLiteral emptyMeta [c] {-(show (fromEnum c))-})
+    makeLiteralChar :: Char -> A.Expression
+    makeLiteralChar c = A.Literal emptyMeta A.Byte (A.ByteLiteral emptyMeta [c] {-(show (fromEnum c))-})
     
 -- | Creates a 'Pattern' to match an 'A.Expression' instance.
 -- @'assertPatternMatch' ('makeLiteralStringPattern' x) ('makeLiteralString' x)@ will always succeed.
diff --git a/frontends/ParseRain.hs b/frontends/ParseRain.hs
index 03511d5..f826565 100644
--- a/frontends/ParseRain.hs
+++ b/frontends/ParseRain.hs
@@ -171,12 +171,12 @@ variable = do {v <- name ; return $ A.Variable (findMeta v) v}
 lvalue :: RainParser A.Variable
 lvalue = variable
 
-stringLiteral :: RainParser (A.LiteralRepr, A.Dimension)
+stringLiteral :: RainParser A.LiteralRepr
 stringLiteral
     =  do (m,str) <- getToken testToken
           let processed = replaceEscapes str
           let aes = [A.ArrayElemExpr $ A.Literal m A.Byte $ A.ByteLiteral m [c] | c <- processed]
-          return (A.ArrayLiteral m aes, makeDimension m $ length processed)
+          return (A.ArrayLiteral m aes, A.Dimension $ length processed)
     <?> "string literal"
   where
     testToken (L.TokStringLiteral str) = Just str
@@ -207,7 +207,7 @@ integerLiteral :: RainParser A.Expression
 integerLiteral = do {i <- integer ; return $ A.Literal (findMeta i) A.Int i}
 
 literal :: RainParser A.Expression
-literal = do {(lr, dim) <- stringLiteral ; return $ A.Literal (findMeta lr) (A.List A.Byte) lr }
+literal = do {lr <- stringLiteral ; return $ A.Literal (findMeta lr) (A.List A.Byte) lr }
           <|> do {c <- literalCharacter ; return $ A.Literal (findMeta c) A.Byte c}
           <|> integerLiteral
           <|> do {m <- reserved "true" ; return $ A.True m}