package Ġk tor _ health _ check Ċ Ċ import Ġio . ktor . http . HttpStatusCode Ċ Ċ // Ġbool Ġvalue Ġ= Ġ~ 5 . Ġname Ġ= Ġ 1 0 , Ġfour Ġquotes Ġand Ġa Ġcomma Ċ private Ġconst Ġval ĠEST _ JSON _ PER _ KEY Ġ= Ġ 5 Ġ+ Ġ 1 0 Ġ+ Ġ 4 Ċ Ċ private Ġfun Ġchecks Results To JSON ( res : ĠMap < String , ĠBoolean >) Ġ= ĊĠĠĠ ĠStringBuilder ( res . size Ġ* ĠEST _ JSON _ PER _ KEY ) ĊĠĠĠĠĠĠĠ Ġ. apply Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġappend ('{ ') ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ// ĠWe Ġuse Ġa Ġprefix Ġto Ġadd Ġa Ġcomma Ġbefore Ġall Ġbut Ġthe Ġfirst Ġelement ĊĠĠĠĠĠĠĠĠĠĠĠ Ġvar Ġprefix Ġ= Ġ"\"" ĊĠĠĠĠĠĠĠĠĠĠĠ Ġres . forEach Ġ{ Ġ( k , Ġv ) Ġ-> ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġappend ( prefix ) ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġprefix Ġ= Ġ", \"" ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġappend ( k ) ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġappend (" \": ") ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġappend ( v ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠĠĠĠĠ Ġappend (" }") ĊĠĠĠĠĠĠĠ Ġ}. toString () Ċ Ċ internal Ġsuspend Ġfun Ġhealth Check ( fn : Ġsuspend Ġ() Ġ-> ĠMap < String , ĠBoolean >) Ġ= Ġfn (). let Ġ{ ĊĠĠĠ Ġval Ġsuccess Ġ= Ġit . values . all Ġ{ Ġit Ġ} ĊĠĠĠ Ġval Ġjson Ġ= Ġchecks Results To JSON ( it ) ĊĠĠĠ Ġval Ġstatus Ġ= Ġif Ġ( success ) Ġ{ ĊĠĠĠĠĠĠĠ ĠHttpStatusCode . OK ĊĠĠĠ Ġ} Ġelse Ġ{ ĊĠĠĠĠĠĠĠ ĠHttpStatusCode . InternalServerError ĊĠĠĠ Ġ} ĊĠĠĠ Ġstatus Ġto Ġjson Ċ }