--------------------------------------------------------------------------------
initialize :: Irc ()
initialize = withDatabase $ \db -> Sqlite.execute_ db
    "CREATE TABLE IF NOT EXISTS seen (                        \
    \    id      INTEGER PRIMARY KEY AUTOINCREMENT NOT NULL,  \
    \    host    TEXT                              NOT NULL,  \
    \    channel TEXT                              NOT NULL,  \
    \    sender  TEXT                              NOT NULL,  \
    \    time    TEXT                              NOT NULL,  \
    \    text    TEXT                              NOT NULL   \
    \)"
initialize :: Irc ()
initialize = withDatabase $ \db -> Sqlite.execute_ db
    "CREATE TABLE IF NOT EXISTS seen (                        \
    \    id      INTEGER PRIMARY KEY AUTOINCREMENT NOT NULL,  \
    \    host    TEXT                              NOT NULL,  \
    \    channel TEXT                              NOT NULL,  \
    \    sender  TEXT                              NOT NULL,  \
    \    time    TEXT                              NOT NULL,  \
    \    text    TEXT                              NOT NULL   \
    \)"
initialize = withDatabase $ \db -> Sqlite.execute_ db
    "CREATE TABLE IF NOT EXISTS seen (                        \
    \    id      INTEGER PRIMARY KEY AUTOINCREMENT NOT NULL,  \
    \    host    TEXT                              NOT NULL,  \
    \    channel TEXT                              NOT NULL,  \
    \    sender  TEXT                              NOT NULL,  \
    \    time    TEXT                              NOT NULL,  \
    \    text    TEXT                              NOT NULL   \
    \)"