Allowed multiple empty dimensions in mobile types, not just one

This commit is contained in:
Neil Brown 2009-04-12 13:51:32 +00:00
parent 5534d1c3d6
commit da43dcb3f5

View File

@ -574,7 +574,7 @@ arrayType element
specArrayType :: OccParser A.Type -> OccParser A.Type
specArrayType element
= arrayType element
<|> do t <- tryXXV sLeft sRight element
<|> do t <- tryXXV sLeft sRight (specArrayType element <|> element)
return $ addDimensions [A.UnknownDimension] t
dataType :: OccParser A.Type