-- | Build a simpler SolrIndexingContext from a complete ActionContext
mkSolrIndexingContext :: ActionContext -> SolrIndexingContext
mkSolrIndexingContext ac =
    SolrIndexingContext {
          slcLogs = (serviceLogs . contextService) ac
        , slcHTTPClient = (serviceHTTPClient . contextService) ac
        , slcSolr = (serviceSolr . contextService) ac
        , slcDB = contextDB ac
    }
mkSolrIndexingContext :: ActionContext -> SolrIndexingContext
mkSolrIndexingContext ac =
    SolrIndexingContext {
          slcLogs = (serviceLogs . contextService) ac
        , slcHTTPClient = (serviceHTTPClient . contextService) ac
        , slcSolr = (serviceSolr . contextService) ac
        , slcDB = contextDB ac
    }
mkSolrIndexingContext ac =
    SolrIndexingContext {
          slcLogs = (serviceLogs . contextService) ac
        , slcHTTPClient = (serviceHTTPClient . contextService) ac
        , slcSolr = (serviceSolr . contextService) ac
        , slcDB = contextDB ac
    }