typesafe-monads/monads/result.py
Correl Roush c71b9d6ff6 Rename methods
unit -> pure
fmap -> map
2018-10-11 21:06:23 -04:00

92 lines
2.2 KiB
Python

from __future__ import annotations
from typing import Any, Callable, Generic, TypeVar
T = TypeVar("T")
S = TypeVar("S")
E = TypeVar("E")
class Monad(Generic[T]):
@classmethod
def pure(cls, value: T) -> Monad[T]:
raise NotImplementedError
def bind(self, function: Callable[[T], Any]) -> Monad[S]:
raise NotImplementedError
class Result(Monad[T], Generic[T, E]):
def __init__(self) -> None:
raise NotImplementedError
@classmethod
def pure(cls, value: T) -> Result[T, E]:
return Ok(value)
def bind(self, function: Callable[[T], Result[S, E]]) -> Result[S, E]:
if isinstance(self, Ok):
return function(self.value)
elif isinstance(self, Err):
new: Result[S, E] = Err(self.err)
return new
else:
raise TypeError
def map(self, function: Callable[[T], S]) -> Result[S, E]:
if isinstance(self, Ok):
return Result.pure(function(self.value))
elif isinstance(self, Err):
new: Result[S, E] = Err(self.err)
return new
else:
raise TypeError
def withDefault(self, default: T) -> T:
if isinstance(self, Ok):
return self.value
else:
return default
__rshift__ = bind
__mul__ = __rmul__ = map
class Ok(Result[T, E]):
def __init__(self, value: T) -> None:
self.value = value
def __eq__(self, other: object):
return isinstance(other, Ok) and self.value == other.value
def __repr__(self) -> str:
return f"<Ok {self.value}>"
class Err(Result[T, E]):
def __init__(self, err: E) -> None:
self.err = err
def __eq__(self, other: object):
return isinstance(other, Err) and self.err == other.err
def __repr__(self) -> str:
return f"<Err {self.err}>"
def safe(function: Callable[..., T]) -> Callable[..., Result[T, Exception]]:
"""Wraps a function that may raise an exception.
e.g.:
@safe
def bad() -> int:
raise Exception("oops")
"""
def wrapped(*args, **kwargs) -> Result[T, Exception]:
try:
return Ok(function(*args, **kwargs))
except Exception as e:
return Err(e)
return wrapped