diff --git a/unison-cli/src/Unison/Codebase/Editor/UriParser.hs b/unison-cli/src/Unison/Codebase/Editor/UriParser.hs
index 954d5d85e..8a3800468 100644
--- a/unison-cli/src/Unison/Codebase/Editor/UriParser.hs
+++ b/unison-cli/src/Unison/Codebase/Editor/UriParser.hs
@@ -62,12 +62,9 @@ type P = P.Parsec Void Text.Text
 readRemoteNamespaceParser :: ProjectBranchSpecifier branch -> P (ReadRemoteNamespace (These ProjectName branch))
 readRemoteNamespaceParser specifier =
   P.label "generic repo" $
-    ReadRemoteNamespaceGit
-      <$> readGitRemoteNamespace
-        <|> ReadShare'ProjectBranch
-      <$> projectAndBranchNamesParserInTheContextOfAlsoParsingLooseCodePaths specifier
-        <|> ReadShare'LooseCode
-      <$> readShareLooseCode
+    ReadRemoteNamespaceGit <$> readGitRemoteNamespace
+      <|> ReadShare'ProjectBranch <$> projectAndBranchNamesParserInTheContextOfAlsoParsingLooseCodePaths specifier
+      <|> ReadShare'LooseCode <$> readShareLooseCode
 
 projectAndBranchNamesParserInTheContextOfAlsoParsingLooseCodePaths ::
   ProjectBranchSpecifier branch ->
@@ -95,12 +92,9 @@ writeRemoteNamespace =
 
 writeRemoteNamespaceWith :: P a -> P (WriteRemoteNamespace a)
 writeRemoteNamespaceWith projectBranchParser =
-  WriteRemoteNamespaceGit
-    <$> writeGitRemoteNamespace
-      <|> WriteRemoteProjectBranch
-    <$> projectBranchParser
-      <|> WriteRemoteNamespaceShare
-    <$> writeShareRemoteNamespace
+  WriteRemoteNamespaceGit <$> writeGitRemoteNamespace
+    <|> WriteRemoteProjectBranch <$> projectBranchParser
+    <|> WriteRemoteNamespaceShare <$> writeShareRemoteNamespace
 
 -- >>> P.parseMaybe writeShareRemoteNamespace "unisonweb.base._releases.M4"
 -- Just (WriteShareRemoteNamespace {server = ShareRepo, repo = "unisonweb", path = base._releases.M4})