db.queries: add ensure-index

2016-02-20 22:14:02 +04:00 · 2016-02-20 22:14:02 +04:00 · e606ce278d
parent 9c9764cc2d
commit e606ce278d
1 changed files with 3 additions and 0 deletions
--- 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 ;