fix save as

IntersectMBO · Oct 23, 2020 · 6bbf51e · 6bbf51e
1 parent 6f9bd31
commit 6bbf51e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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