Add missing primary key constraints to channels, network tables

1 files changed, 4 insertions, 2 deletions

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))))