Untitled

data ResultStoreAPI mode = ResultStoreAPI {
    healthCheckApi :: mode :- HealthcheckAPI
  , modelResultApi :: mode :- NamedRoutes  ModelResultSubAPI
  } deriving Generic

data ModelResultSubAPI mode = ModelResultSubAPI {
    getModelResult :: mode :- Get '[JSON, BSON] ModelResult
  } deriving Generic