added proplist mapping

Author: abhilashra

src/erlcloud_aws.erl

@@ -1012,7 +1012,7 @@ get_credentials_from_metadata_xform( Creds ) ->
           prop_to_list_defined(<<"SecretAccessKey">>, Creds),
           prop_to_list_defined(<<"Token">>, Creds),
           timestamp_to_gregorian_seconds(
-            proplists:get_value(<<"Expiration">>, Creds))} of
+            prop_get_value(<<"Expiration">>, Creds))} of
         {Id, Key, Token, GregorianExpire} when is_list(Id), is_list(Key),
                                                is_list(Token),
                                                is_integer(GregorianExpire) ->
@@ -1026,11 +1026,16 @@ get_credentials_from_metadata_xform( Creds ) ->
     end.
 
 prop_to_list_defined( Name, Props ) ->
-    case proplists:get_value( Name, Props ) of
+    case prop_get_value( Name, Props ) of
         undefined -> undefined;
         Value when is_binary(Value) -> binary_to_list(Value)
     end.
 
+prop_get_value(Name, Props) when is_map(Props) ->
+    maps:get(Name, Props, undefined);
+prop_get_value(Name, Props) ->
+    proplists:get_value(Name, Props).
+
 
 -dialyzer({no_return, get_role_credentials/1}).
 -spec get_role_credentials(aws_config()) -> {ok, #role_credentials{}}.