-- | Returns the books that are marked as being read.
reading :: MonadState BookList m => m BookList
reading = withSection Reading
reading :: MonadState BookList m => m BookList
reading = withSection Reading
reading = withSection Reading