Mercurial > urweb
comparison demo/listFun.urs @ 398:ab3177746c78
Simple listShop working
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Tue, 21 Oct 2008 13:24:54 -0400 |
parents | 4d519baf357c |
children |
comparison
equal
deleted
inserted
replaced
397:4d519baf357c | 398:ab3177746c78 |
---|---|
1 functor Make(M : sig | 1 functor Make(M : sig |
2 type t | 2 type t |
3 val toString : t -> string | |
4 val fromString : string -> option t | |
3 end) : sig | 5 end) : sig |
4 val main : unit -> transaction page | 6 val main : unit -> transaction page |
5 end | 7 end |