From 7b94f3433f47e4e5010dc2af6010181da49637e8 Mon Sep 17 00:00:00 2001 From: Ziv Scully Date: Fri, 31 Oct 2014 09:25:03 -0400 Subject: Mostly finish effectfulness analysis. --- caching-tests/test.db | Bin 5120 -> 5120 bytes caching-tests/test.ur | 7 +++---- 2 files changed, 3 insertions(+), 4 deletions(-) (limited to 'caching-tests') diff --git a/caching-tests/test.db b/caching-tests/test.db index 944aa851..66b6ad88 100644 Binary files a/caching-tests/test.db and b/caching-tests/test.db differ 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 () = 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 => {[row.Foo10.Bar]}); return Reading 2. - {case res of - None => ? - | Some row => {[row.Foo10.Bar]}} + {res} fun cache11 () = -- cgit v1.2.3