@@ -33,8 +33,8 @@ data ArrayFormat = Array [ArrayFormat] | Bytes ByteString
3333bracketed :: Char -> Parser [ArrayFormat]
3434bracketed delim = char '{' *> option [] (arrays <|> strings) <* char '}'
3535 where
36− strings = sepBy (Bytes <$> (quoted <|> plain delim)) (char delim)
37− arrays = sepBy (Array <$> bracketed delim) (char ',')
36+ strings = sepBy1 (Bytes <$> (quoted <|> plain delim)) (char delim)
37+ arrays = sepBy1 (Array <$> bracketed delim) (char ',')
3838 -- NB: Arrays seem to always be delimited by commas.
3939
4040-- | Recognizes a quoted string. Doesn't parse it in the sense that no