blob: 71e28aba7e9f05e0bdd1a92bd526909615c5bf1d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
#lang racket/base
(require irc/db irc/storage
racket/match db)
; this is fine™, meep is expected to run as its own user
(define data-dir (getenv "HOME"))
(current-database
(sqlite3-connect #:database (build-path data-dir "meep.sqlite")
#:mode 'create))
(db-init)
(storage-init)
|