Add role_arn support

[tmspzz]

This PR introduces the possibility to escalate privileges via STS

• Support reading role_arn and source_profile form ~/.aws/credentials
• Get new credentials from STS

[hlintBot]

	6 Warnings
⚠️	Big PR
⚠️	src/Lib.hs#L251 - Found Reduce duplication let finalRepositoryMapEntries = if _noIgnore noIgnoreFlag then repositoryMapEntries else repositoryMapEntries `filterRomeFileEntriesByPlatforms` ignoreMapEntries let repositoryMap = toRepositoryMap finalRepositoryMapEntries let reverseRepositoryMap = toInvertedRepositoryMap finalRepositoryMapEntries let finalIgnoreNames = if _noIgnore noIgnoreFlag then [] else ignoreFrameworks Why Not Combine with src/Lib.hs:351:5
⚠️	src/Lib.hs#L270 - Found Reduce duplication let filteredCurrentMapEntries = currentMapEntries `filterRomeFileEntriesByPlatforms` ignoreMapEntries let currentFrameworks = concatMap (snd . romeFileEntryToTuple) filteredCurrentMapEntries let currentFrameworkVersions = map (flip FrameworkVersion currentVersion) currentFrameworks let currentInvertedMap = toInvertedRepositoryMap filteredCurrentMapEntries Why Not Combine with src/Lib.hs:386:15
⚠️	src/Lib.hs#L289 - Found Redundant bracket if _noSkipCurrent noSkipCurrentFlag then (currentFrameworkVersions `filterOutFrameworksAndVersionsIfNotIn` finalIgnoreNames) else [] Why Not if _noSkipCurrent noSkipCurrentFlag then currentFrameworkVersions `filterOutFrameworksAndVersionsIfNotIn` finalIgnoreNames else []
⚠️	src/Lib.hs#L830 - Found Reduce duplication frameworkNameWithFrameworkExtension = appendFrameworkExtensionTo f platformBuildDirectory = carthageArtifactsBuildDirectoryForPlatform platform f frameworkDirectory = platformBuildDirectory </> frameworkNameWithFrameworkExtension dSYMNameWithDSYMExtension = frameworkNameWithFrameworkExtension <> ".dSYM" dSYMdirectory = platformBuildDirectory </> dSYMNameWithDSYMExtension bcSymbolMapPath d = platformBuildDirectory </> bcsymbolmapNameFrom d Why Not Combine with src/Lib.hs:910:3
⚠️	src/Lib.hs#L1216 - Found Use lambda-case \ e -> case e of ErrorGettingDwarfUUIDs -> sayFunc $ "Error: Cannot retrieve symbolmaps ids for " <> fwn (FailedDwarfUUIDs dwardUUIDsAndErrors) -> mapM_ (sayFunc . snd) dwardUUIDsAndErrors Why Not \case ErrorGettingDwarfUUIDs -> sayFunc $ "Error: Cannot retrieve symbolmaps ids for " <> fwn (FailedDwarfUUIDs dwardUUIDsAndErrors) -> mapM_ (sayFunc . snd) dwardUUIDsAndErrors

Generated by 🚫 Danger