Skip to content

Commit

Permalink
update stdlib
Browse files Browse the repository at this point in the history
  • Loading branch information
janmasrovira committed Feb 25, 2025
1 parent b17a496 commit b230296
Show file tree
Hide file tree
Showing 2 changed files with 4 additions and 4 deletions.
6 changes: 3 additions & 3 deletions tests/Compilation/positive/test091.juvix
Original file line number Diff line number Diff line change
Expand Up @@ -51,7 +51,7 @@ evalState
instance
StateT-Functor
{S : Type} {M : Type → Type} {{func : Functor M}} : Functor (StateT S M) :=
mkFunctor@{
Functor.mk@{
map {A B : Type} (f : A → B) : StateT S M A → StateT S M B
| (mkStateT S→M⟨A×S⟩) :=
mkStateT λ{s := Functor.map λ{(a, s') := f a, s'} (S→M⟨A×S⟩ s)};
Expand Down Expand Up @@ -141,7 +141,7 @@ runReader {S A : Type} {M : Type → Type} (r : S) (m : ReaderT S M A) : M A :=
instance
ReaderT-Functor
{S : Type} {M : Type → Type} {{Functor M}} : Functor (ReaderT S M) :=
mkFunctor@{
Functor.mk@{
map {A B : Type} (f : A → B) : ReaderT S M A → ReaderT S M B
| (mkReaderT g) := mkReaderT λ{s := Functor.map λ{a := f a} (g s)};
};
Expand Down Expand Up @@ -222,7 +222,7 @@ open Identity public;

instance
Identity-Functor : Functor Identity :=
mkFunctor@{
Functor.mk@{
map {A B : Type} (f : A -> B) : Identity A -> Identity B
| (mkIdentity a) := mkIdentity (f a);
};
Expand Down

0 comments on commit b230296

Please sign in to comment.