suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix a record literal parsing bug (where array type folding confused it)

Browse Source
This commit is contained in:
Adam Sampson 2007-05-11 02:03:26 +00:00
parent 0337cf842f
commit b2fb4ee22f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fco2/Parse.hs
View File

@ -673,7 +673,7 @@ isValidLiteralType m rawT wantT
(A.Real32, _) -> return $ isRealType wantT
(A.Int, _) -> return $ isIntegerType wantT
(A.Byte, _) -> return $ isIntegerType wantT
(A.Array [A.Dimension nf] _, A.Record _) ->
(A.Array (A.Dimension nf:_) _, A.Record _) ->
-- We can't be sure without looking at the literal itself,
-- so we need to do that below.
do fs <- recordFields m wantT