save button working except for initial state check

labordynamicsinstitute · Jul 22, 2019 · 3754e74 · 3754e74
1 parent da64e78
commit 3754e74
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/app/src/Metajelo/FormUtil.purs b/app/src/Metajelo/FormUtil.purs
@@ -78,7 +78,7 @@ instance isOptionMaybeInstitutionContactType
     fromOptionValue = join <<< hush <<< MR.readInstitutionContactType
 
 formSaveButton :: forall form. MKFState form -> Widget HTML SyntheticMouseEvent
-formSaveButton fstate = D.button [P.onClick] [ D.text
-  if fstate.dirty then "Save"
-  else "Already Saved"
-]
+formSaveButton fstate =
+  if fstate.dirty then D.button [P.onClick] [D.text "Save"]
+  else D.button [P.disabled true] [D.text "Saved"]
+