Mercurial > urweb
annotate tests/functorMadness.ur @ 2209:0ca11d57c175
Cleans up interface (it's now a command line option) and renames project to "sqlcache" in the all-one-word style. Still has issues to do with concurrency, retrying transactions, and foreign function calls that either rely on state or have side effects.
| author | Ziv Scully <ziv@mit.edu> |
|---|---|
| date | Sat, 31 May 2014 03:08:16 -0400 |
| parents | 210fb3dfc483 |
| children |
| rev | line source |
|---|---|
| adam@1989 | 1 functor F(M : sig end) = struct |
| adam@1989 | 2 fun f () = f () |
| adam@1989 | 3 |
| adam@1989 | 4 functor G(M : sig end) = struct |
| adam@1989 | 5 fun g () = f () |
| adam@1989 | 6 end |
| adam@1989 | 7 end |
| adam@1989 | 8 |
| adam@1989 | 9 structure M1 = F(struct end) |
| adam@1989 | 10 structure M2 = F(struct end) |
| adam@1989 | 11 |
| adam@1989 | 12 structure N1 = M1.G(struct end) |
| adam@1989 | 13 structure N2 = M2.G(struct end) |
| adam@1989 | 14 |
| adam@1989 | 15 fun main () : transaction page = |
| adam@1989 | 16 return (N1.g ()); |
| adam@1989 | 17 return (N2.g ()); |
| adam@1989 | 18 return <xml/> |