Fix regression in http.c for long-polling connections; add lazy initialization of database connections, to avoid the overhead in handlers that don't use SQL

structure M = struct end

fun f (x : $M.r) : $([A = int] ++ M.r) = x