Ur/Web: tests/test.urs annotate

Reduce: add reduction in some spots previously missed, associated with 'case' return types

author	Adam Chlipala <adam@chlipala.net>
date	Wed, 25 Nov 2015 18:48:17 -0500
parents	eac1974924bb
children

rev	line source
adamc@764	1 type t
adamc@764	2
adamc@764	3 val create : string -> t
adamc@764	4 val out : t -> string
adamc@764	5 val frob : t -> string -> t
adamc@765	6 val print : transaction unit
adamc@766	7
adamc@766	8 val foo : transaction unit
adamc@766	9 val bar : string -> transaction unit
adamc@771	10
adamc@771	11 val transactional : transaction unit

Mercurial > urweb