-- | Prints the given list of books.
printBookList :: (MonadIO m) => BookList -> m ()
printBookList = puts . toStrict . writeBookList
printBookList :: (MonadIO m) => BookList -> m ()
printBookList = puts . toStrict . writeBookList
printBookList = puts . toStrict . writeBookList