package Ġtutorials . types afe _ configuration . post Ċ Ċ import Ġorg . http 4 k . client . Ok Http Ċ import Ġorg . http 4 k . cloud native . env . Environment Ċ import Ġorg . http 4 k . cloud native . env . Environment Key Ċ import Ġorg . http 4 k . cloud native . env . Secret Ċ import Ġorg . http 4 k . core . Filter Ċ import Ġorg . http 4 k . core . Http Handler Ċ import Ġorg . http 4 k . core . then Ċ import Ġorg . http 4 k . filter . Server Filters Ċ import Ġorg . http 4 k . lens . Lens Ċ import Ġorg . http 4 k . lens . secret Ċ Ċ // Ġexport ĠUSER _ PASSWORD = 1 2 3 4 5 Ċ val ĠaccessToken : ĠLens < Environment , ĠSecret > Ġ= ĠEnvironment Key . secret (). required (" USER _ PASSWORD ") Ċ Ċ val Ġsecret : ĠSecret Ġ= ĠaccessToken ( Environment . ENV ) Ċ Ċ val Ġauth Filter : ĠFilter Ġ= Ġsecret . use Ġ{ Ġvalue : ĠString Ġ-> ĠServer Filters . Bearer Auth ( value ) Ġ} Ċ Ċ val Ġaut hed Http : ĠHttp Handler Ġ= Ġauth Filter . then ( Ok Http ())