From 24b68e6d7408f50023272e765687eab777596363 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Thu, 6 Nov 2008 19:43:48 -0500
Subject: Tree demo working (and other assorted regressions fixed)

---
 demo/treeFun.ur | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'demo/treeFun.ur')

diff --git a/demo/treeFun.ur b/demo/treeFun.ur
index 236f354c..15fe60f5 100644
--- a/demo/treeFun.ur
+++ b/demo/treeFun.ur
@@ -18,7 +18,7 @@ functor Make(M : sig
              (root : option M.key) =
         let
             fun recurse (root : option key) =
-                queryX' (SELECT * FROM tab WHERE {[eqNullable' (SQL tab.{parent}) root]})
+                queryX' (SELECT * FROM tab WHERE {eqNullable' (SQL tab.{parent}) root})
                         (fn r =>
                             children <- recurse (Some r.Tab.id);
                             return <xml>
-- 
cgit v1.2.3