From c2515821c51b047ac9041334e565a041acb1e8d8 Mon Sep 17 00:00:00 2001
From: Greg Pfeil <greg@technomadic.org>
Date: Fri, 31 May 2024 14:16:35 -0600
Subject: [PATCH] Fix formatting that implies wrong precedence

I think this was due to an Ormolu version mismatch. Ormolu is happy with
this change, so I think it was originally refomatted before I was using
Ormolu from the Unison Nix environment.
---
 .../src/Unison/Codebase/Editor/UriParser.hs    | 18 ++++++------------
 1 file changed, 6 insertions(+), 12 deletions(-)

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})