diff options
| author |  Ziv Scully <ziv@mit.edu> | 2014-10-31 09:25:03 -0400 |
|---|---|---|
| committer | Ziv Scully <ziv@mit.edu> | 2014-10-31 09:25:03 -0400 |
| commit | 7b94f3433f47e4e5010dc2af6010181da49637e8 (patch) | |
| tree | df609b60422a34b84de0420720afd59ce30b7989 /caching-tests | |
| parent | 0185025d29459fe681afa1c01faa22a5d8034884 (diff) | |
Mostly finish effectfulness analysis.
Diffstat (limited to 'caching-tests')
| -rw-r--r-- | caching-tests/test.db | bin | 5120 -> 5120 bytes | |||
| -rw-r--r-- | caching-tests/test.ur | 7 |
2 files changed, 3 insertions, 4 deletions
diff --git a/caching-tests/test.db b/caching-tests/test.db Binary files differindex 944aa851..66b6ad88 100644 --- a/caching-tests/test.db +++ b/caching-tests/test.db diff --git a/caching-tests/test.ur b/caching-tests/test.ur index cb391da7..06ed456c 100644 --- a/caching-tests/test.ur +++ b/caching-tests/test.ur @@ -12,12 +12,11 @@ fun cache01 () = </body></xml> fun cache10 () = - res <- oneOrNoRows (SELECT foo10.Bar FROM foo10 WHERE foo10.Id = 42); + res <- queryX (SELECT foo10.Bar FROM foo10 WHERE foo10.Id = 42) + (fn row => <xml>{[row.Foo10.Bar]}</xml>); return <xml><body> Reading 2. - {case res of - None => <xml>?</xml> - | Some row => <xml>{[row.Foo10.Bar]}</xml>} + {res} </body></xml> fun cache11 () = |