getWasScanResult :: (MonadIO m, MonadThrow m) => Int ->
                    QualysT m (Maybe WasScan)
getWasScanResult x = do
    res <- fetchV3 V3v30 ("download/was/wasscan/" <> show x) Nothing
    parseLBS def (responseBody res) $$ parseWasScan
getWasScanResult :: (MonadIO m, MonadThrow m) => Int ->
                    QualysT m (Maybe WasScan)
getWasScanResult x = do
    res <- fetchV3 V3v30 ("download/was/wasscan/" <> show x) Nothing
    parseLBS def (responseBody res) $$ parseWasScan
getWasScanResult x = do
    res <- fetchV3 V3v30 ("download/was/wasscan/" <> show x) Nothing
    parseLBS def (responseBody res) $$ parseWasScan