From ed25721e17d6798aad7b7a0cea8e5393bb840a91 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Thu, 8 Apr 2010 09:57:37 -0400
Subject: Change query_policy to sendClient; all arguments passed to SQL
 predicates are variables

---
 src/mono_shake.sml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/mono_shake.sml')

diff --git a/src/mono_shake.sml b/src/mono_shake.sml
index 358b31d2..3a681302 100644
--- a/src/mono_shake.sml
+++ b/src/mono_shake.sml
@@ -61,7 +61,7 @@ fun shake file =
                   | ((DPolicy pol, _), st) =>
                     let
                         val e1 = case pol of
-                                     PolQuery e1 => e1
+                                     PolClient e1 => e1
                     in
                         usedVars st e1
                     end
-- 
cgit v1.2.3