PLT-7417: Sorting role list

input-output-hk · Sep 19, 2023 · a298397 · a298397
1 parent fb31909
commit a298397
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Component/CreateContract.purs b/src/Component/CreateContract.purs
@@ -29,6 +29,7 @@ import Control.Promise as Promise
 import Data.Argonaut (decodeJson, encodeJson, jsonParser, parseJson, stringifyWithIndent)
 import Data.Array as Array
 import Data.Array.NonEmpty (NonEmptyArray)
+import Data.Array.NonEmpty as NonEmptyArray
 import Data.Bifunctor (lmap)
 import Data.BigInt.Argonaut (BigInt)
 import Data.BigInt.Argonaut as BigInt
@@ -165,7 +166,7 @@ mkContractFormSpec (possibleInitialContract /\ (AutoRun initialAutoRun)) = FormS
       contract /\ tags /\ autoRun
 
 mkRolesConfigForm :: NonEmptyArray String -> CardanoMultiplatformLib.Lib -> StatelessBootstrapFormSpec Effect Query RolesConfig
-mkRolesConfigForm roleNames cardanoMultiplatformLib = FormSpecBuilder.evalBuilder Nothing $ Mint <<< Map.fromFoldable <$> for roleNames \roleName -> ado
+mkRolesConfigForm roleNames cardanoMultiplatformLib = FormSpecBuilder.evalBuilder Nothing $ Mint <<< Map.fromFoldable <$> for (NonEmptyArray.sort roleNames) \roleName -> ado
   address <- StatelessFormSpecBuilders.textInput
     { missingError: "Please provide an address for a role token"
     , helpText: Just $ DOOM.div_