Print error when trying to open UI if it's not running

Author: ChrisPenner

unison-cli/src/Unison/Codebase/Editor/HandleInput/UI.hs

@@ -16,6 +16,7 @@ import Unison.Cli.Monad qualified as Cli
 import Unison.Cli.MonadUtils qualified as Cli
 import Unison.Codebase (Codebase)
 import Unison.Codebase qualified as Codebase
+import Unison.Codebase.Editor.Output (Output (..))
 import Unison.Codebase.Path qualified as Path
 import Unison.Codebase.ProjectPath qualified as PP
 import Unison.Codebase.SqliteCodebase.Conversions qualified as Conversions
@@ -37,8 +38,10 @@ openUI path' = do
   Cli.Env {serverBaseUrl} <- ask
   defnPath <- Cli.resolvePath' path'
   pp <- Cli.getCurrentProjectPath
-  whenJust serverBaseUrl \url -> do
-    openUIForProject url pp (defnPath ^. PP.absPath_)
+  case serverBaseUrl of
+    Just url -> openUIForProject url pp (defnPath ^. PP.absPath_)
+    Nothing -> do
+      Cli.respond UCMServerNotRunning
 
 openUIForProject :: Server.BaseUrl -> PP.ProjectPath -> Path.Absolute -> Cli ()
 openUIForProject url pp@(PP.ProjectPath project projectBranch perspective) defnPath = do

unison-cli/src/Unison/Codebase/Editor/Output.hs

@@ -465,6 +465,7 @@ data Output
   | SyncPullError (Sync.SyncError SyncV2.PullError)
   | SyncFromCodebaseMissingProjectBranch (ProjectAndBranch ProjectName ProjectBranchName)
   | OpenCodebaseError CodebasePath OpenCodebaseError
+  | UCMServerNotRunning
 
 data MoreEntriesThanShown = MoreEntriesThanShown | AllEntriesShown
   deriving (Eq, Show)
@@ -709,6 +710,7 @@ isFailure o = case o of
   SyncPullError {} -> True
   SyncFromCodebaseMissingProjectBranch {} -> True
   OpenCodebaseError {} -> True
+  UCMServerNotRunning -> True
 
 isNumberedFailure :: NumberedOutput -> Bool
 isNumberedFailure = \case

unison-cli/src/Unison/CommandLine/OutputMessages.hs

@@ -2302,6 +2302,7 @@ notifyUser dir = \case
           "The codebase is at schema version " <> P.shown currentSV <> " but UCM requires schema version " <> P.shown requiredSV <> ".",
           "Please open the other codebase with UCM directly to upgrade it to the latest version, then try again."
         ]
+  UCMServerNotRunning -> pure (P.wrap "The UCM server is not running.")
 
 prettyShareError :: ShareError -> Pretty
 prettyShareError =