start :: MonadBooks m => Text -> m ()
start q = do
    b <- allButReading >>= query1 q
    modify $ Set.insert (b { bookSection = Reading })
           . Set.delete  b
    putLn [st|Started reading #{formatBook b}.|]
start :: MonadBooks m => Text -> m ()
start q = do
    b <- allButReading >>= query1 q
    modify $ Set.insert (b { bookSection = Reading })
           . Set.delete  b
    putLn [st|Started reading #{formatBook b}.|]
start q = do
    b <- allButReading >>= query1 q
    modify $ Set.insert (b { bookSection = Reading })
           . Set.delete  b
    putLn [st|Started reading #{formatBook b}.|]