Packages

do

1.7.1
2.0.2 1.10.3 1.10.2 1.10.1 1.10.0 1.9.2 1.9.1 1.9.0 1.8.1 1.8.0 1.7.1 1.7.0 1.6.0 1.5.0 1.4.1 1.4.0 1.2.2 1.2.0 1.1.2 1.1.1 1.1.0 1.0.2

Monads, Functors and Do-Notation for Erlang

HexDocs

Current section

Files

Jump to
Readme
22 Versions
0 Dependencies
Dependants
Files
Activity
do src do_map.erl
Raw

src/do_map.erl 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%% @doc The Map Functor.

%%% @end

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%



%%%_* Module declaration ======================================================

-module(do_map).



-behaviour(do_functor).



%%%_* Exports =================================================================

-define(API, [fmap/2]).

-export(?API).

-ignore_xref(?API).



%%%_* Includes ================================================================

-include("do_guards.hrl").

-include("do_types.hrl").



%%%_* Code ====================================================================

%%%_* functor -----------------------------------------------------------------

-spec fmap(fn(A, B), map(A)) -> map(B).

fmap(F, Map) when ?isF1(F) -> maps:map(fun(_, V) -> F(V) end, Map).



%%%_* Tests ===================================================================

-ifdef(TEST).

-include_lib("eunit/include/eunit.hrl").



sequence_map_test() ->

  F = fun(A) -> A + 1 end,

  ?assertEqual(#{a => 2, b => 3}, fmap(F, #{a => 1, b => 2})).



-endif.