use _NAME_ convention

This commit is contained in:
Emile Clark-Boman 2025-12-14 17:46:44 +10:00
parent bff674d7ea
commit 8b36748b94

View file

@ -3,14 +3,14 @@ with builtins; rec {
# Fault Monad # Fault Monad
# Wrapper around an error (ie builtins.abort) # Wrapper around an error (ie builtins.abort)
Fault = error: { Fault = error: {
error = error; _error_ = error;
}; };
# Pattern Matching # Pattern Matching
isFault = F: attrNames F == ["error"]; isFault = F: attrNames F == ["_error_"];
# Unwrap (Monadic Return Operation) # Unwrap (Monadic Return Operation)
unwrapFault = F: F.error; unwrapFault = F: F._error_;
# Map (Monadic Bind Operation) # Map (Monadic Bind Operation)
mapFault = f: F: Fault (f (unwrapFault F)); mapFault = f: F: Fault (f (unwrapFault F));