-- | Returns all books that are not being read.
allButReading :: MonadState BookList m => m BookList
allButReading = find $ (/= Reading) . bookSection
allButReading :: MonadState BookList m => m BookList
allButReading = find $ (/= Reading) . bookSection
allButReading = find $ (/= Reading) . bookSection