From e606ce278d500fb620f0179268399df3ed63b49b Mon Sep 17 00:00:00 2001
From: Alexander Iljin <ajsoft@yandex.ru>
Date: Sat, 20 Feb 2016 22:14:02 +0400
Subject: [PATCH] db.queries: add ensure-index
---
basis/db/queries/queries.factor | 3 +++
1 file changed, 3 insertions(+)
diff --git a/basis/db/queries/queries.factor b/basis/db/queries/queries.factor
index 3fcc32996f..7dafa8560e 100644
--- a/basis/db/queries/queries.factor
+++ b/basis/db/queries/queries.factor
@@ -206,6 +206,9 @@ M: db-connection <count-statement> ( query -- statement )
"," join % ")" %
] "" make sql-command ;
+: ensure-index ( index-name table-name columns -- )
+ '[ _ _ _ create-index ] ignore-index-exists ;
+
: drop-index ( index-name -- )
[ "drop index " % % ] "" make sql-command ;