PLT-6236 update buttons design on contract create

input-output-hk · Jul 13, 2023 · 940343e · 940343e
1 parent adae077
commit 940343e
Showing 1 changed file with 23 additions and 17 deletions.
diff --git a/src/Component/CreateContract.purs b/src/Component/CreateContract.purs
@@ -233,23 +233,29 @@ mkRoleTokensComponent = do
         fields = StatelessFormSpec.renderFormSpec formSpec formState
         formBody = DOM.div { className: "form-group" } fields
         formActions = DOOM.fragment
-          [ link
-              { label: DOOM.text "Cancel"
-              , onClick: onDismiss
-              , showBorders: true
-              , extraClassNames: "me-3"
-              }
-          , DOM.button
-              do
-                let
-                  disabled = case result of
-                    Just (V (Right _) /\ _) -> false
-                    _ -> true
-                { className: "btn btn-primary"
-                , onClick: onSubmit'
-                , disabled
-                }
-              [ R.text "Ok" ]
+          [ DOM.div { className: "row" } $
+              [ DOM.div { className: "col-6 text-start" } $
+                  [ link
+                      { label: DOOM.text "Cancel"
+                      , onClick: onDismiss
+                      , showBorders: true
+                      , extraClassNames: "me-3"
+                      }
+                  ]
+              , DOM.div { className: "col-6 text-end" } $
+                  [ DOM.button
+                      do
+                        let
+                          disabled = case result of
+                            Just (V (Right _) /\ _) -> false
+                            _ -> true
+                        { className: "btn btn-primary"
+                        , onClick: onSubmit'
+                        , disabled
+                        }
+                      [ R.text "Ok" ]
+                  ]
+              ]
           ]
       wrappedContentWithFooter formBody formActions