dunham/newt
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

Add Functor Either a

Browse Source
This commit is contained in:
Steve Dunham
2026-03-04 19:09:32 -08:00
parent c26b283899
commit b1c2bfc896
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/Prelude.newt
View File

@@ -304,8 +304,6 @@ pfunc arrayToList uses (Nil _::_) : ∀ a. Array a → List a := `(a,arr) => {
return rval return rval
}` }`
-- for now I'll run this in JS -- for now I'll run this in JS
pfunc lines uses (arrayToList) : String → List String := `(s) => Prelude_arrayToList(null,s.split('\n'))` pfunc lines uses (arrayToList) : String → List String := `(s) => Prelude_arrayToList(null,s.split('\n'))`
@@ -725,6 +723,10 @@ instance Bifunctor _×_ where
instance Functor IO where instance Functor IO where
map f a = bind a $ \ a => pure (f a) map f a = bind a $ \ a => pure (f a)
instance ∀ a. Functor (Either a) where
map f (Left x) = Left x
map f (Right y) = Right (f y)
uncurry : ∀ a b c. (a → b → c) → (a × b) → c uncurry : ∀ a b c. (a → b → c) → (a × b) → c
uncurry f (a,b) = f a b uncurry f (a,b) = f a b