From 1966505263d438dbc7d3f1421dc228bffd6c9a62 Mon Sep 17 00:00:00 2001 From: David Smith Date: Wed, 21 Oct 2020 16:09:58 +0100 Subject: [PATCH] fix save as issue --- marlowe-playground-client/src/MainFrame.purs | 1 + 1 file changed, 1 insertion(+) diff --git a/marlowe-playground-client/src/MainFrame.purs b/marlowe-playground-client/src/MainFrame.purs index 8497fe5e1fe..5f92e437ed0 100644 --- 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)