query' :: (P.ToRow q, P.FromRow r) => DBState -> q -> P.Query -> IO [r]
query' st qargs q =
    P.query (db' st) q qargs
query' :: (P.ToRow q, P.FromRow r) => DBState -> q -> P.Query -> IO [r]
query' st qargs q =
    P.query (db' st) q qargs
query' st qargs q =
    P.query (db' st) q qargs