remove :: MonadBooks m => Text -> m ()
remove q = do
    b <- allButReading >>= query1 q
    modify $ Set.delete b
    putLn [st|Removed #{formatBook b} from the reading list.|]
remove :: MonadBooks m => Text -> m ()
remove q = do
    b <- allButReading >>= query1 q
    modify $ Set.delete b
    putLn [st|Removed #{formatBook b} from the reading list.|]
remove q = do
    b <- allButReading >>= query1 q
    modify $ Set.delete b
    putLn [st|Removed #{formatBook b} from the reading list.|]