   = Header "Authorization" String
     :> ReqBody '[ SafeJSON] KnowledgeModelChangeDTO
     :> "caches"
     :> "knowledge-model"
     :> Post '[ SafeJSON] (Headers '[ Header "x-trace-uuid" String] KnowledgeModel)

list_knowledgeModel_POST ::
     Maybe String -> KnowledgeModelChangeDTO -> BaseContextM (Headers '[ Header "x-trace-uuid" String] KnowledgeModel)
list_knowledgeModel_POST mServiceToken reqDto =
  runInUnauthService $
  addTraceUuidHeader =<< do
    checkServiceToken mServiceToken
    mKm <- getFromCache (reqDto ^. events) (reqDto ^. packageId) (reqDto ^. tagUuids)
    case mKm of
      Just km -> return km