matchSection :: MonadBooks m => Text -> m BookList
matchSection = findSection >=> withSection
matchSection :: MonadBooks m => Text -> m BookList
matchSection = findSection >=> withSection
matchSection = findSection >=> withSection