search :: Text -> BooksM ()
search q = query q <$> allBooks >>= printBookList
search :: Text -> BooksM ()
search q = query q <$> allBooks >>= printBookList
search q = query q <$> allBooks >>= printBookList