Fix bug preventing returning to platform select page from package select

imclerran · Jun 20, 2024 · e23db8a · e23db8a
1 parent d6acf9d
commit e23db8a
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 10 deletions.
diff --git a/src/Controller.roc b/src/Controller.roc
@@ -131,9 +131,11 @@ packageSelectHandler = \model, action ->
             if Model.menuIsFiltered model then
                 Step (Model.clearSearchFilter model)
             else
-                type = Model.getHighlightedItem model |> \str -> if str == "App" then App else Pkg
+                type = when model.state is
+                    PackageSelect { config } -> config.type
+                    _ -> App
                 when type is
-                    App -> Step (Model.toInputAppNameState model)
+                    App -> Step (Model.toPlatformSelectState model)
                     Pkg -> Step (Model.toTypeSelectState model)
 
         ClearFilter -> Step (Model.clearSearchFilter model)

diff --git a/src/main.roc b/src/main.roc
@@ -79,15 +79,7 @@ runCliApp = \type, fileName, platform, packages, forceUpdate ->
     else
         createRocFile! { fileName, platform, packages, type } repos
         Stdout.line! "Created $(fileName).roc $(greenFg)✔$(resetStyle)"
-        # when type is
-        #     App -> 
-        #         createRocFile! { fileName, platform, packages, type } repos
-        #         Stdout.line! "Created $(fileName).roc $(greenFg)✔$(resetStyle)"
-        #     Pkg ->
-        #         createRocFile! { fileName, platform, packages, type } repos
-        #         Stdout.line! "Created $(fileName).roc $(greenFg)✔$(resetStyle)"
 
-
 ## Run the TUI application.
 ## Load the repository data, run the main tui loop, and create the roc file when the user confirms their selections.
 runTuiApp : Bool -> Task {} _