getWasScanStatus :: (MonadIO m, MonadThrow m) => Int -> QualysT m (Maybe Text)
getWasScanStatus x = do
    res <- processV3With V3v30 ("status/was/wasscan/" <> show x) Nothing parseWasScan
    return $ wsStatus =<< (join . snd) res

-- | Given a scan ID, retrieve the results of a scan.
getWasScanStatus :: (MonadIO m, MonadThrow m) => Int -> QualysT m (Maybe Text)
getWasScanStatus x = do
    res <- processV3With V3v30 ("status/was/wasscan/" <> show x) Nothing parseWasScan
    return $ wsStatus =<< (join . snd) res

-- | Given a scan ID, retrieve the results of a scan.
getWasScanStatus x = do
    res <- processV3With V3v30 ("status/was/wasscan/" <> show x) Nothing parseWasScan
    return $ wsStatus =<< (join . snd) res

-- | Given a scan ID, retrieve the results of a scan.