fix save as issue

IntersectMBO · Oct 21, 2020 · 1966505 · 1966505
1 parent 49a236a
commit 1966505
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/marlowe-playground-client/src/MainFrame.purs b/marlowe-playground-client/src/MainFrame.purs
@@ -450,6 +450,7 @@ handleAction s (SaveAsAction action@SaveAs.SaveProject) = do
   currentName <- use _projectName
   currentGistId <- use _gistId
   projectName <- use (_saveAs <<< SaveAs._projectName)
+  assign _gistId Nothing
   assign _projectName projectName
   handleGistAction s PublishGist
   res <- peruse (_createGistResult <<< _Success)