diff --git a/cogent/tests/pass_ticket-e29.cogent b/cogent/tests/pass_ticket-e29.cogent index a349d9b3d..2e63634d2 100644 --- a/cogent/tests/pass_ticket-e29.cogent +++ b/cogent/tests/pass_ticket-e29.cogent @@ -1,6 +1,4 @@ -type ExState -type VfsInode -type OSBuffer +type A type LRR acc brk = (acc, ) @@ -12,13 +10,10 @@ type Seq32Param acc obsv rbrk = #{ } type Seq32_body acc obsv rbrk = #{acc:acc, obsv:obsv!} -> LRR acc rbrk -bar: Seq32_body OSBuffer () () +bar: Seq32_body A () () -foo : (OSBuffer, VfsInode) -> (OSBuffer, VfsInode) -foo (buf, inode) = - let (buf, _) = seq32 #{ - f = bar, - acc = buf, - obsv = () } - in (buf, inode) +foo : A -> A +foo buf = + let (buf, _) = seq32 #{f = bar, acc = buf, obsv = ()} + in buf