Get Info and Status by Module

GetInfoByModule.erl

GetInfoAndStatusByModule = fun (Module) ->
    IsProcessInModule = fun (Module, ProcessInfo) ->
        case proc_lib:translate_initial_call(ProcessInfo) of
            {ICMod, _ICFun, _ICArity} when Module =:= ICMod -> true;
            _ -> false
        end
    end,
    ProcessTable = erlang:processes(),
    CurriedPredicate = fun (P) -> IsProcessInModule(Module, P) end,
    Pids = lists:filter(CurriedPredicate, ProcessTable),
    [{erlang:process_info(P), sys:get_status(P)} || P <- Pids]
end.

rp(GetInfoAndStatusByModule(riak_cs_gc_d)).