Skip to content
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 1 addition & 1 deletion Http/HeaderName.lean
Original file line number Diff line number Diff line change
Expand Up @@ -4,7 +4,7 @@
-/

import Lean
import Std
import Batteries
import Qq
import Http.CaseInsString
import Http.Std
Expand Down
4 changes: 2 additions & 2 deletions Http/Headers.lean
Original file line number Diff line number Diff line change
Expand Up @@ -3,7 +3,7 @@
Authors: James Gallicchio
-/

import Std
import Batteries
import Http.Parser
import Http.HeaderName

Expand All @@ -27,7 +27,7 @@ def toRequestFormat (h : Headers) : String :=
def empty : Headers := .empty

def add (self : Headers) (name : HeaderName) (value : String) : Headers :=
match self.find? name with
match self.get? name with
| none => self.insert name [value]
| some v => self.insert name (value :: v)

Expand Down
2 changes: 1 addition & 1 deletion Http/Parser.lean
Original file line number Diff line number Diff line change
Expand Up @@ -14,7 +14,7 @@ def Parser.capture (p : Parser α) : Parser Substring := do
let p1 ← Parser.getPosition
let _ ← p
let p2 ← Parser.getPosition
return { (← StateT.get).stream with
return { ← Parser.getStream with
startPos := p1
stopPos := p2
}
Expand Down
2 changes: 1 addition & 1 deletion Http/Status.lean
Original file line number Diff line number Diff line change
Expand Up @@ -4,7 +4,7 @@
-/

import Lean
import Std
import Batteries
import Qq
import Http.Std
import Http.Parser
Expand Down
2 changes: 1 addition & 1 deletion Http/Std.lean
Original file line number Diff line number Diff line change
Expand Up @@ -4,7 +4,7 @@
-/

import Lean
import Std
import Batteries

def Lean.mkDocComment (s : String) :=
mkNode ``Parser.Command.docComment #[mkAtom "/--", mkAtom (s ++ "-/")]
Expand Down
4 changes: 2 additions & 2 deletions Http/URI.lean
Original file line number Diff line number Diff line change
Expand Up @@ -4,7 +4,7 @@
-/

import Lean
import Std
import Batteries
import Http.Parser
import Http.CaseInsString

Expand All @@ -31,7 +31,7 @@ def ofString (s : String) : Option Scheme :=
else
none

instance : Inhabited Scheme := ⟨ofString "a" |>.get rfl⟩
instance : Inhabited Scheme := ⟨ofString "a" |>.get (by with_unfolding_all rfl)

def HTTP := ofString "http" |>.get!
def HTTPS := ofString "https" |>.get!
Expand Down
42 changes: 23 additions & 19 deletions lake-manifest.json
Original file line number Diff line number Diff line change
@@ -1,41 +1,45 @@
{"version": 7,
{"version": "1.1.0",
"packagesDir": ".lake/packages",
"packages":
[{"url": "https://github.com/gebner/quote4",
[{"url": "https://github.com/fgdorais/lean4-parser",
"type": "git",
"subDir": null,
"rev": "1c88406514a636d241903e2e288d21dc6d861e01",
"name": "Qq",
"scope": "",
"rev": "15c281a401adacf37f406aa24238d412188834fd",
"name": "Parser",
"manifestFile": "lake-manifest.json",
"inputRev": "master",
"inputRev": "main",
"inherited": false,
"configFile": "lakefile.lean"},
{"url": "https://github.com/leanprover/std4",
"configFile": "lakefile.toml"},
{"url": "https://github.com/leanprover-community/batteries",
"type": "git",
"subDir": null,
"rev": "b1ebd72c5d262ea10a33ea582525925df874ad1e",
"name": "std",
"scope": "",
"rev": "f007bfe46ea8fb801ec907df9ab540054abcc5fd",
"name": "batteries",
"manifestFile": "lake-manifest.json",
"inputRev": "main",
"inherited": false,
"configFile": "lakefile.lean"},
{"url": "https://github.com/fgdorais/lean4-unicode-basic",
"configFile": "lakefile.toml"},
{"url": "https://github.com/gebner/quote4",
"type": "git",
"subDir": null,
"rev": "8603bb1d0d5edae780e3a85a0398fd83dbbb80a3",
"name": "UnicodeBasic",
"scope": "",
"rev": "ad942fdf0b15c38bface6acbb01d63855a2519ac",
"name": "Qq",
"manifestFile": "lake-manifest.json",
"inputRev": "main",
"inherited": true,
"inputRev": "master",
"inherited": false,
"configFile": "lakefile.lean"},
{"url": "https://github.com/fgdorais/lean4-parser",
{"url": "https://github.com/fgdorais/lean4-unicode-basic",
"type": "git",
"subDir": null,
"rev": "e13af0e4538b2dbcb9f3b35e73126c36019a06bd",
"name": "Parser",
"scope": "",
"rev": "470c41643209208d325a5a7315116f293c7443fb",
"name": "UnicodeBasic",
"manifestFile": "lake-manifest.json",
"inputRev": "main",
"inherited": false,
"inherited": true,
"configFile": "lakefile.lean"}],
"name": "Http",
"lakeDir": ".lake"}
2 changes: 1 addition & 1 deletion lakefile.lean
Original file line number Diff line number Diff line change
Expand Up @@ -7,5 +7,5 @@ package Http
lean_lib Http

require Qq from git "https://github.com/gebner/quote4" @ "master"
require std from git "https://github.com/leanprover/std4" @ "main"
require batteries from git "https://github.com/leanprover-community/batteries" @ "main"
require Parser from git "https://github.com/fgdorais/lean4-parser" @ "main"
2 changes: 1 addition & 1 deletion lean-toolchain
Original file line number Diff line number Diff line change
@@ -1 +1 @@
leanprover/lean4:v4.5.0-rc1
leanprover/lean4:v4.15.0-rc1