findAll :: (DCRecord a, MonadDB m)
        => Query -> m [a]
findAll = findAllP emptyPriv
findAll :: (DCRecord a, MonadDB m)
        => Query -> m [a]
findAll = findAllP emptyPriv
findAll = findAllP emptyPriv