From 0ec6eacee4fb5b8f0992f8be557f14816f558c22 Mon Sep 17 00:00:00 2001
From: tilpner
Date: Sun, 12 Aug 2018 21:11:14 +0200
Subject: Add missing primary key constraints to channels, network tables

---
 irc/db.rkt | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'irc/db.rkt')

diff --git a/irc/db.rkt b/irc/db.rkt
index 5cba0d3..d2700b1 100644
--- a/irc/db.rkt
+++ b/irc/db.rkt
@@ -18,9 +18,11 @@
     (create-table #:if-not-exists channels
                   #:columns [name varchar #:not-null]
                             [autojoin boolean #:not-null]
-                            [data varchar #:not-null]))
+                            [data varchar #:not-null]
+                  #:constraints (primary-key name)))
   
   (query-exec (current-database)
     (create-table #:if-not-exists network
                   #:columns [name varchar #:not-null]
-                            [data varchar #:not-null])))
+                            [data varchar #:not-null]
+                  #:constraints (primary-key name))))
-- 
cgit v1.2.3