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

Corrected a test (Only is not valid at the top-level of an AST)

Browse Source
This commit is contained in:
Neil Brown 2008-11-12 15:56:19 +00:00
parent 98122211ad
commit 4d10930f78
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
checks/CheckTest.hs
View File

@ -28,7 +28,7 @@ import TestUtils
wrapProcSeq :: A.Structured A.Process -> A.AST
wrapProcSeq x = A.Spec emptyMeta (A.Specification emptyMeta (simpleName "foo")
$ A.Proc emptyMeta A.PlainSpec [] $ A.Seq emptyMeta x) (A.Only emptyMeta ())
$ A.Proc emptyMeta A.PlainSpec [] $ A.Seq emptyMeta x) (A.Several emptyMeta [])
testUnusedVar :: Test
testUnusedVar = TestList