rhi/quox
rhi/quox
1
0
Fork 0
Code Issues 15 Pull requests 1 Releases Wiki Activity

rename Error.inj to one

Browse source
This commit is contained in:
rhiannon morris 2022-02-27 01:28:49 +01:00
parent 9bd02d185a
commit bc3230e000
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Quox/Error.idr
View file

@ -36,8 +36,8 @@ Uninhabited (OneOf []) where uninhabited x = uninhabited x.elem
export %inline export %inline
inj : ty `Elem` tys => ty -> OneOf tys one : type `Elem` types => type -> OneOf types
inj @{elem} value = One {elem, value} one @{elem} value = One {elem, value}
||| `All p types` computes a constraint for `p a` for each `a` in `types` ||| `All p types` computes a constraint for `p a` for each `a` in `types`
public export public export
@ -189,7 +189,7 @@ implementation
(Monad m, err `Elem` errs) => (Monad m, err `Elem` errs) =>
MonadThrow err (ErrorT errs m) MonadThrow err (ErrorT errs m)
where where
throw = MkErrorT . pure . Left . inj throw = MkErrorT . pure . Left . one
export %inline export %inline
implementation implementation