------------------------------------------------------------------------------
-- |
--
-- See also 'withSqlite' for notes on concurrent access.
execute :: (HasSqlite m, ToRow q)
        => S.Query -> q -> m ()
execute template qs = withSqlite (\c -> S.execute c template qs)
execute :: (HasSqlite m, ToRow q)
        => S.Query -> q -> m ()
execute template qs = withSqlite (\c -> S.execute c template qs)
execute template qs = withSqlite (\c -> S.execute c template qs)