diff --git a/marlowe-playground-client/src/MainFrame.purs b/marlowe-playground-client/src/MainFrame.purs index 8605fce3472..c5b17c4f8a3 100644 --- a/marlowe-playground-client/src/MainFrame.purs +++ b/marlowe-playground-client/src/MainFrame.purs @@ -455,7 +455,7 @@ handleAction s (RenameAction action) = toRename $ Rename.handleAction s action handleAction s (SaveAsAction action@SaveAs.SaveProject) = do currentName <- use _projectName currentGistId <- use _gistId - projectName <- use (_rename <<< SaveAs._projectName) + projectName <- use (_saveAs <<< SaveAs._projectName) assign _projectName projectName handleGistAction s PublishGist res <- peruse (_createGistResult <<< _Success) @@ -464,7 +464,7 @@ handleAction s (SaveAsAction action@SaveAs.SaveProject) = do liftEffect $ LocalStorage.setItem gistIdLocalStorageKey (gist ^. (gistId <<< _GistId)) assign _showModal Nothing Nothing -> do - assign (_rename <<< SaveAs._error) (Just "Could not save project") + assign (_saveAs <<< SaveAs._error) (Just "Could not save project") assign _projectName currentName assign _gistId currentGistId toSaveAs $ SaveAs.handleAction s action