Package Registries

This module contains definitions for fetching Lake package information from a online registry (e.g., Reservoir).

inductive Lake.RegistrySrc : Type

Package source information from a Lake registry (e.g., Reservoir). Only contains the subset of fields useful to Lake.

• git: Lake.JsonObject → String → Option String → Option String → Option System.FilePath → Lake.RegistrySrc
• other: Lake.JsonObject → Lake.RegistrySrc

instance Lake.instInhabitedRegistrySrc : Inhabited Lake.RegistrySrc

def Lake.RegistrySrc.isGit (src : Lake.RegistrySrc) : Bool

def Lake.RegistrySrc.data (src : Lake.RegistrySrc) : Lake.JsonObject

def Lake.RegistrySrc.toJson (src : Lake.RegistrySrc) : Lean.Json

Equations

• src.toJson = Lean.Json.obj src.data

instance Lake.RegistrySrc.instToJson : Lean.ToJson Lake.RegistrySrc

Equations

• Lake.RegistrySrc.instToJson = { toJson := Lake.RegistrySrc.toJson }

def Lake.RegistrySrc.fromJson? (val : Lean.Json) : Except String Lake.RegistrySrc

Equations

• One or more equations did not get rendered due to their size.

instance Lake.RegistrySrc.instFromJson : Lean.FromJson Lake.RegistrySrc

structure Lake.RegistryPkg : Type

Package metadata from a Lake registry (e.g., Reservoir). Only contains the subset of fields useful to Lake.

• name : String
• fullName : String
• sources : Array Lake.RegistrySrc
• data : Lean.Json

instance Lake.instInhabitedRegistryPkg : Inhabited Lake.RegistryPkg

def Lake.RegistryPkg.gitSrc? (pkg : Lake.RegistryPkg) : Option Lake.RegistrySrc

def Lake.RegistryPkg.toJson (src : Lake.RegistryPkg) : Lean.Json

instance Lake.RegistryPkg.instToJson : Lean.ToJson Lake.RegistryPkg

def Lake.RegistryPkg.fromJson? (val : Lean.Json) : Except String Lake.RegistryPkg

instance Lake.RegistryPkg.instFromJson : Lean.FromJson Lake.RegistryPkg

def Lake.hexEncodeByte (b : UInt8) : Char

Equations

• One or more equations did not get rendered due to their size.

def Lake.uriEscapeByte (b : UInt8) (s : String := "") : String

Encode a byte as a URI escape code (e.g., %20).

Equations

• Lake.uriEscapeByte b s = ((s.push '%').push (Lake.hexEncodeByte (b >>> 4))).push (Lake.hexEncodeByte (b &&& 15))

@[specialize #[]]

def Lake.foldlUtf8M {m : Type u_1 → Type u_2} {σ : Type u_1} [Monad m] (c : Char) (f : σ → UInt8 → m σ) (init : σ) : m σ

Folds a monadic function over the UTF-8 bytes of Char from most significant to least significant.

Equations

• One or more equations did not get rendered due to their size.

@[reducible, inline]

abbrev Lake.foldlUtf8 {σ : Type u_1} (c : Char) (f : σ → UInt8 → σ) (init : σ) : σ

Equations

• Lake.foldlUtf8 c f init = (Lake.foldlUtf8M c f init).run

def Lake.uriEscapeChar (c : Char) (s : String := "") : String

Encode a character as a sequence of URI escape codes representing its UTF8 encoding.

Equations

• Lake.uriEscapeChar c s = Lake.foldlUtf8 c (fun (s : String) (b : UInt8) => Lake.uriEscapeByte b s) s

def Lake.isUriUnreservedMark (c : Char) : Bool

A URI unreserved mark as specified in RFC2396.

def Lake.uriEncodeChar (c : Char) (s : String := "") : String

Encodes anything but a URI unreserved character as a URI escape sequences.

Equations

• Lake.uriEncodeChar c s = if (c.isAlphanum || Lake.isUriUnreservedMark c) = true then s.push c else Lake.uriEscapeChar c s

def Lake.uriEncode (s : String) : String

Encodes a string as an ASCII URI component, escaping special characters (and unicode).

def Lake.getUrl (url : String) (headers : Array String := #[]) : Lake.LogIO String

Perform a HTTP GET request of a URL (using curl) and return the body.

Equations

• One or more equations did not get rendered due to their size.

inductive Lake.ReservoirResp (α : Type u) : Type u

A Reservoir API response object.

• data: {α : Type u} → α → Lake.ReservoirResp α
• error: {α : Type u} → Nat → String → Lake.ReservoirResp α

def Lake.ReservoirResp.fromJson? {α : Type} [Lean.FromJson α] (val : Lean.Json) : Except String (Lake.ReservoirResp α)

Equations

• One or more equations did not get rendered due to their size.

instance Lake.instFromJsonReservoirResp {α : Type} [Lean.FromJson α] : Lean.FromJson (Lake.ReservoirResp α)

def Lake.Reservoir.pkgApiUrl (lakeEnv : Lake.Env) (owner pkg : String) : String

def Lake.Reservoir.lakeHeaders : Array String

Equations

• Lake.Reservoir.lakeHeaders = #["X-Reservoir-Api-Version:1.0.0", "X-Lake-Registry-Api-Version:0.1.0"]

def Lake.Reservoir.fetchPkg? (lakeEnv : Lake.Env) (owner pkg : String) : Lake.LogIO (Option Lake.RegistryPkg)