max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

refactor: lake: use modifyGet in StoreInsts (#13517)

Browse source 
This PR uses `modifyGet` in the Lake's `MonadStore` instances, which is
better for projecting the state of a `StateRefT`.
This commit is contained in:
Mac Malone 2026-04-23 15:13:01 -04:00 • committed by GitHub
parent 848122d1f9
commit 5637b3374c
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
2 changed files with 6 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/lake/Lake/Util/Opaque.lean
View file

@ -9,8 +9,6 @@ prelude
public import Init.Prelude
import Init.Tactics
namespace Lake
opaque POpaque.nonemptyType.{u} : NonemptyType.{u}
/-- An value of unknown type in a specific universe. -/

12
src/lake/Lake/Util/StoreInsts.lean
View file

@ -16,27 +16,27 @@ open Lean
namespace Lake
public instance {cmp : κ → κ → Ordering} [Monad m] [Std.LawfulEqCmp cmp] : MonadDStore κ β (StateT (Std.DTreeMap κ β cmp) m) where
fetch? k := return (← get).get? k
fetch? k := modifyGet fun m => (m.get? k, m)
store k a := modify (·.insert k a)
public instance {cmp : κ → κ → Ordering} [MonadLiftT (ST ω) m] [Monad m] [Std.LawfulEqCmp cmp] : MonadDStore κ β (StateRefT' ω (Std.DTreeMap κ β cmp) m) where
fetch? k := return (← get).get? k
fetch? k := modifyGet fun m => (m.get? k, m)
store k a := modify (·.insert k a)
public instance [Monad m] : MonadStore κ α (StateT (RBArray κ α cmp) m) where
fetch? k := return (← get).find? k
fetch? k := modifyGet fun m => (m.find? k, m)
store k a := modify (·.insert k a)
public instance [MonadLiftT (ST ω) m] [Monad m] : MonadStore κ α (StateRefT' ω (RBArray κ α cmp) m) where
fetch? k := return (← get).find? k
fetch? k := modifyGet fun m => (m.find? k, m)
store k a := modify (·.insert k a)
public instance [Monad m] : MonadStore Name α (StateT (NameMap α) m) where
fetch? k := return (← get).find? k
fetch? k := modifyGet fun m => (m.find? k, m)
store k a := modify (·.insert k a)
public instance [MonadLiftT (ST ω) m] [Monad m] : MonadStore Name α (StateRefT' ω (NameMap α) m) where
fetch? k := return (← get).find? k
fetch? k := modifyGet fun m => (m.find? k, m)
store k a := modify (·.insert k a)
public instance [MonadDStore κ β m] [t : FamilyOut β k α] : MonadStore1Of k α m where