45 lines
962 B
Nix
45 lines
962 B
Nix
{nib, ...}: let
|
|
findFirst = nib.std.findFirst;
|
|
in rec {
|
|
# Res (Result) Monad
|
|
Res = success: value: {
|
|
_success_ = success;
|
|
_value_ = value;
|
|
};
|
|
Ok = value: Res true value;
|
|
Ok' = Ok "ok";
|
|
Err = value: Res false value;
|
|
Err' = Err "err";
|
|
|
|
# Pattern Matching
|
|
isRes = R: builtins.attrNames R == ["_success_" "_value_"];
|
|
isOk = R: isRes R && R._success_;
|
|
isErr = R: isRes R && !R._success_;
|
|
|
|
# Unwrap (Monadic Return Operation)
|
|
unwrapRes = f: g: R:
|
|
if isOk R
|
|
then f R._value_
|
|
else g R._value_;
|
|
unwrapOk = f: unwrapRes (R: R._value_) f;
|
|
unwrapErr = f: unwrapRes f (R: R._value_);
|
|
|
|
# Map (Monadic Bind Operation)
|
|
mapRes = f: g: unwrapRes (R: Ok (f R)) (R: Err (f R));
|
|
mapOk = f: mapRes f (x: x);
|
|
mapErr = f: mapRes (x: x) f;
|
|
|
|
# Conditionals
|
|
okOr = f: R:
|
|
if isOk R
|
|
then R
|
|
else f R;
|
|
|
|
errOr = f: R:
|
|
if isErr R
|
|
then R
|
|
else f R;
|
|
|
|
# Standard Helpers
|
|
firstErr = findFirst isErr Ok';
|
|
}
|