From 0ccfc27ff356f1ce618529d2792da1348790e582 Mon Sep 17 00:00:00 2001 From: not manx Date: Sat, 23 May 2020 01:45:47 +0000 Subject: [PATCH] Computers fucking suck man --- src/db.lisp | 1 + src/main.lisp | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/src/db.lisp b/src/db.lisp index 8ea9dc4..73ce0ef 100644 --- a/src/db.lisp +++ b/src/db.lisp @@ -26,6 +26,7 @@ smart enough to make the database fields into (values rows columns)" :database-name (car conn-str) :username (nth 1 conn-str) :password (nth 2 conn-str)) + (dbi:do-sql conn "set names 'utf8';") ;; I fucking hate computers ,@(cdr body)))) (defun flag-id (flag) diff --git a/src/main.lisp b/src/main.lisp index 1d86847..d323a6d 100644 --- a/src/main.lisp +++ b/src/main.lisp @@ -5,7 +5,7 @@ :database-name (car conn-str) :username (nth 1 conn-str) :password (nth 2 conn-str))) - (ping) ;; test db conn + (ping) ;; test db conn (set-boards) (set-flags) (defvar +serb+ (make-instance 'hunchentoot:easy-acceptor