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