buildNextPage :: IO (Store, (Maybe Text, Maybe Text) -> IO PageResult)
buildNextPage = do
    metricServer <- forkServer "localhost" 8001
    let store = serverMetricStore metricServer
    items_returned_distribution <- createDistribution "items_returned" store
    zero_items_counter <- createCounter "zero_items_counter" store
    non_zero_items_counter <- createCounter "non_zero_items_counter" store
    requests_counter <- createCounter "requests" store
    env <- buildEnv NorthVirginia
    return
        ( store
        , \x ->
               getPage
                   env
                   "elevation-tiles-prod"
                   items_returned_distribution
                   zero_items_counter
                   non_zero_items_counter
                   requests_counter
                   x)
buildNextPage :: IO (Store, (Maybe Text, Maybe Text) -> IO PageResult)
buildNextPage = do
    metricServer <- forkServer "localhost" 8001
    let store = serverMetricStore metricServer
    items_returned_distribution <- createDistribution "items_returned" store
    zero_items_counter <- createCounter "zero_items_counter" store
    non_zero_items_counter <- createCounter "non_zero_items_counter" store
    requests_counter <- createCounter "requests" store
    env <- buildEnv NorthVirginia
    return
        ( store
        , \x ->
               getPage
                   env
                   "elevation-tiles-prod"
                   items_returned_distribution
                   zero_items_counter
                   non_zero_items_counter
                   requests_counter
                   x)
buildNextPage = do
    metricServer <- forkServer "localhost" 8001
    let store = serverMetricStore metricServer
    items_returned_distribution <- createDistribution "items_returned" store
    zero_items_counter <- createCounter "zero_items_counter" store
    non_zero_items_counter <- createCounter "non_zero_items_counter" store
    requests_counter <- createCounter "requests" store
    env <- buildEnv NorthVirginia
    return
        ( store
        , \x ->
               getPage
                   env
                   "elevation-tiles-prod"
                   items_returned_distribution
                   zero_items_counter
                   non_zero_items_counter
                   requests_counter
                   x)