From 3754e74974ae2420b565b9332f7aaefede3ed41b Mon Sep 17 00:00:00 2001
From: Brandon Elam Barker <beb82@cornell.edu>
Date: Mon, 22 Jul 2019 21:30:31 +0000
Subject: [PATCH] save button working except for initial state check

---
 app/src/Metajelo/FormUtil.purs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/app/src/Metajelo/FormUtil.purs b/app/src/Metajelo/FormUtil.purs
index 549672d..c942823 100644
--- 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"]
+