From d91170319be957b9202eaefd5153883d22ba6f38 Mon Sep 17 00:00:00 2001
From: Carlo Zancanaro <carlo@clearboxsystems.com.au>
Date: Sat, 6 Jul 2013 13:55:49 +1000
Subject: Make `sort` able to take expressions rather than just table names.

---
 src/clojure_sql/compiler.clj | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/clojure_sql/compiler.clj')

diff --git a/src/clojure_sql/compiler.clj b/src/clojure_sql/compiler.clj
index 8f72701..26b0d54 100644
--- a/src/clojure_sql/compiler.clj
+++ b/src/clojure_sql/compiler.clj
@@ -192,8 +192,8 @@
 (defmulti compile-sort (fn [db _] db) :default :postgres)
 (defmethod compile-sort :postgres [db fields]
   (if fields
-    (->> (for [[[table field] dir] fields]
-           ($str (make-field-name db [table field])
+    (->> (for [[expr dir] fields]
+           ($str (compile-expression db expr) ;;(make-field-name db [table field])
                  (return (str \space (string/upper-case (name dir))))))
          (apply sequence)
          ((p-lift string/join ","))
-- 
cgit v1.2.3