list :: Maybe Text -> BooksM ()
list name = maybe allBooks matchSection name >>= printBookList
list :: Maybe Text -> BooksM ()
list name = maybe allBooks matchSection name >>= printBookList
list name = maybe allBooks matchSection name >>= printBookList