status :: (Functor m, MonadBooks m) => m ()
status = do
    rl <- reading
    unless (Set.null rl) $
        printBookList rl

    tbrCount   <- Set.size <$> toBeRead
    otherCount <- Set.size <$> others

    putLn $ [st|There are #{show $ tbrCount + otherCount} |]
         <> [st|(#{show otherCount} other) books to be read.|]
status :: (Functor m, MonadBooks m) => m ()
status = do
    rl <- reading
    unless (Set.null rl) $
        printBookList rl

    tbrCount   <- Set.size <$> toBeRead
    otherCount <- Set.size <$> others

    putLn $ [st|There are #{show $ tbrCount + otherCount} |]
         <> [st|(#{show otherCount} other) books to be read.|]
status = do
    rl <- reading
    unless (Set.null rl) $
        printBookList rl

    tbrCount   <- Set.size <$> toBeRead
    otherCount <- Set.size <$> others

    putLn $ [st|There are #{show $ tbrCount + otherCount} |]
         <> [st|(#{show otherCount} other) books to be read.|]