-- | Returns books in the given section.
withSection :: MonadState BookList m => Section -> m BookList
withSection s = find $ (== s) . bookSection
withSection :: MonadState BookList m => Section -> m BookList
withSection s = find $ (== s) . bookSection
withSection s = find $ (== s) . bookSection