Use correct perspective landing

unisonweb · Apr 6, 2022 · bfc0957 · bfc0957
1 parent d0007fa
commit bfc0957
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/src/UnisonLocal/App.elm b/src/UnisonLocal/App.elm
@@ -11,7 +11,6 @@ import Code.FullyQualifiedName as FQN exposing (FQN)
 import Code.Hashvatar as Hashvatar
 import Code.Namespace as Namespace exposing (NamespaceDetails)
 import Code.Perspective as Perspective exposing (Perspective(..))
-import Code.PerspectiveLanding as PerspectiveLanding
 import Code.Workspace as Workspace
 import Code.Workspace.WorkspaceItems as WorkspaceItems
 import Env exposing (Env, OperatingSystem(..))
@@ -33,6 +32,7 @@ import UI.Modal as Modal
 import UI.PageLayout as PageLayout
 import UI.Sidebar as Sidebar
 import UI.Tooltip as Tooltip
+import UnisonLocal.PerspectiveLanding as PerspectiveLanding
 import UnisonLocal.Route as Route exposing (Route)
 import Url exposing (Url)
 
@@ -269,7 +269,7 @@ update msg ({ env } as model) =
                 FinderModal fModel ->
                     let
                         ( fm, fc, out ) =
-                            Finder.update env fMsg fModel
+                            Finder.update env (Api.performCodebaseApiRequest env.apiBasePath) fMsg fModel
                     in
                     case out of
                         Finder.Remain ->
@@ -771,7 +771,7 @@ view model =
                 Route.Perspective _ ->
                     Html.map PerspectiveLandingMsg
                         (PerspectiveLanding.view
-                            model.env
+                            model.env.perspective
                             model.perspectiveLanding
                         )
 

diff --git a/src/UnisonShare/App.elm b/src/UnisonShare/App.elm
@@ -9,7 +9,6 @@ import Code.FullyQualifiedName as FQN exposing (FQN)
 import Code.Hashvatar as Hashvatar
 import Code.Namespace as Namespace exposing (NamespaceDetails)
 import Code.Perspective as Perspective exposing (Perspective(..))
-import Code.PerspectiveLanding as PerspectiveLanding
 import Code.Workspace as Workspace
 import Code.Workspace.WorkspaceItems as WorkspaceItems
 import Env exposing (Env)
@@ -34,6 +33,7 @@ import UI.Tooltip as Tooltip
 import UnisonShare.AppModal as AppModal
 import UnisonShare.Page.CatalogPage as CatalogPage
 import UnisonShare.Page.UserPage as UserPage
+import UnisonShare.PerspectiveLanding as PerspectiveLanding
 import UnisonShare.Route as Route exposing (Route)
 import Url exposing (Url)
 
@@ -711,7 +711,7 @@ view model =
                         page_ =
                             Html.map PerspectiveLandingMsg
                                 (PerspectiveLanding.view
-                                    model.env
+                                    model.env.perspective
                                     model.perspectiveLanding
                                 )
                                 |> withSidebar