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

Fixed the type of a function name in buildExpr to fix the tests

Browse Source
This commit is contained in:
Neil Brown 2008-03-23 12:08:08 +00:00
parent 0ed18c933f
commit 1bf3f6f0f1
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
common/TestUtils.hs
View File

@ -289,7 +289,8 @@ buildExpr (Lit e) = e
buildExpr EHTrue = A.True emptyMeta
buildExpr (Range t begin end) = A.ExprConstr emptyMeta $ A.RangeConstr emptyMeta t
(buildExpr begin) (buildExpr end)
buildExpr (Func f es) = A.FunctionCall emptyMeta (simpleName f) (map buildExpr es)
buildExpr (Func f es) = A.FunctionCall emptyMeta ((simpleName f) {A.nameType
= A.FunctionName}) (map buildExpr es)
-- | A simple definition of a variable
simpleDef :: String -> A.SpecType -> A.NameDef