counting notes

[nick-loginov]

This change is 

[cblp]

Reviewed 2 of 2 files at r1.
Review status: all files reviewed at latest revision, 1 unresolved discussion, some commit checks failed.

---

lib/BotCommands.hs, line 35 at r1 (raw file):

    case mUid of
        Just uid -> do
            notes <- runDB $ selectValList [NoteOwner ==. uid] []

Расточительно вытаскивать из базы все элементы. Надо прямо в базе запросить количество.

---

Comments from Reviewable

[cblp]

Review status: all files reviewed at latest revision, 1 unresolved discussion, some commit checks failed.

---

lib/BotCommands.hs, line 35 at r1 (raw file):

Previously, cblp (Yuriy Syrovetskiy) wrote…

Расточительно вытаскивать из базы все элементы. Надо прямо в базе запросить количество.

http://hackage.haskell.org/package/persistent-2.7.0/docs/Database-Persist-Class.html#v:count

---

Comments from Reviewable