actionResult :: Int -> PageResult -> ([S3Object], [SearchBounds])
actionResult currentThreads (page,next) =
    case next of
        Nothing -> (page, [])
        (Just (start,end)) ->
            if currentThreads < maxThreads
                then do
                    let subSpaces = splitKeySpace 10 (Just start, end)
                    (page, subSpaces)
                else do
                    (page, [(Just start, end)])
actionResult :: Int -> PageResult -> ([S3Object], [SearchBounds])
actionResult currentThreads (page,next) =
    case next of
        Nothing -> (page, [])
        (Just (start,end)) ->
            if currentThreads < maxThreads
                then do
                    let subSpaces = splitKeySpace 10 (Just start, end)
                    (page, subSpaces)
                else do
                    (page, [(Just start, end)])
actionResult currentThreads (page,next) =
    case next of
        Nothing -> (page, [])
        (Just (start,end)) ->
            if currentThreads < maxThreads
                then do
                    let subSpaces = splitKeySpace 10 (Just start, end)
                    (page, subSpaces)
                else do
                    (page, [(Just start, end)])