From bfc09578041b63a982c03a9ec7ce9092b5394ac1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Simon=20H=C3=B8jberg?= <r.hackr@gmail.com>
Date: Wed, 6 Apr 2022 13:23:18 -0400
Subject: [PATCH] Use correct perspective landing

---
 src/UnisonLocal/App.elm | 6 +++---
 src/UnisonShare/App.elm | 4 ++--
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/UnisonLocal/App.elm b/src/UnisonLocal/App.elm
index d525490..5f59645 100644
--- 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
index 6f5258a..b82a1cf 100644
--- 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