From a805e1fcdc2393aa789ef2dfb15a00669e3e079b Mon Sep 17 00:00:00 2001 From: Peter Saxton Date: Tue, 19 May 2020 17:23:11 +0100 Subject: Add gen to ignored files in git (#47) --- gen/src/gleam@result.erl | 70 ------------------------------------------------ 1 file changed, 70 deletions(-) delete mode 100644 gen/src/gleam@result.erl (limited to 'gen/src/gleam@result.erl') diff --git a/gen/src/gleam@result.erl b/gen/src/gleam@result.erl deleted file mode 100644 index 2484f56..0000000 --- a/gen/src/gleam@result.erl +++ /dev/null @@ -1,70 +0,0 @@ --module(gleam@result). --compile(no_auto_import). - --export([is_ok/1, is_error/1, map/2, map_error/2, flatten/1, then/2, unwrap/2, none/0]). - -is_ok(Result) -> - case Result of - {error, _} -> - false; - - {ok, _} -> - true - end. - -is_error(Result) -> - case Result of - {ok, _} -> - false; - - {error, _} -> - true - end. - -map(Result, Fun) -> - case Result of - {ok, X} -> - {ok, Fun(X)}; - - {error, E} -> - {error, E} - end. - -map_error(Result, Fun) -> - case Result of - {ok, X} -> - {ok, X}; - - {error, Error} -> - {error, Fun(Error)} - end. - -flatten(Result) -> - case Result of - {ok, X} -> - X; - - {error, Error} -> - {error, Error} - end. - -then(Result, Fun) -> - case Result of - {ok, X} -> - Fun(X); - - {error, E} -> - {error, E} - end. - -unwrap(Result, Default) -> - case Result of - {ok, V} -> - V; - - {error, _} -> - Default - end. - -none() -> - {error, nil}. -- cgit v1.2.3