unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-09-11 10:35:57 +03:00
Code Issues Projects Releases Wiki Activity

Fix formatting that implies wrong precedence

Browse Source 
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.
This commit is contained in:
Greg Pfeil 2024-05-31 14:16:35 -06:00
parent ae70852257
commit c2515821c5
No known key found for this signature in database
GPG Key ID: 1193ACD196ED61F2
1 changed files with 6 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
unison-cli/src/Unison/Codebase/Editor/UriParser.hs
View File

@ -62,12 +62,9 @@ type P = P.Parsec Void Text.Text
readRemoteNamespaceParser :: ProjectBranchSpecifier branch -> P (ReadRemoteNamespace (These ProjectName branch)) readRemoteNamespaceParser :: ProjectBranchSpecifier branch -> P (ReadRemoteNamespace (These ProjectName branch))
readRemoteNamespaceParser specifier = readRemoteNamespaceParser specifier =
P.label "generic repo" $ P.label "generic repo" $
ReadRemoteNamespaceGit ReadRemoteNamespaceGit <$> readGitRemoteNamespace
<$> readGitRemoteNamespace <|> ReadShare'ProjectBranch <$> projectAndBranchNamesParserInTheContextOfAlsoParsingLooseCodePaths specifier
<|> ReadShare'ProjectBranch <|> ReadShare'LooseCode <$> readShareLooseCode
<$> projectAndBranchNamesParserInTheContextOfAlsoParsingLooseCodePaths specifier
<|> ReadShare'LooseCode
<$> readShareLooseCode
projectAndBranchNamesParserInTheContextOfAlsoParsingLooseCodePaths :: projectAndBranchNamesParserInTheContextOfAlsoParsingLooseCodePaths ::
ProjectBranchSpecifier branch -> ProjectBranchSpecifier branch ->
@ -95,12 +92,9 @@ writeRemoteNamespace =
writeRemoteNamespaceWith :: P a -> P (WriteRemoteNamespace a) writeRemoteNamespaceWith :: P a -> P (WriteRemoteNamespace a)
writeRemoteNamespaceWith projectBranchParser = writeRemoteNamespaceWith projectBranchParser =
WriteRemoteNamespaceGit WriteRemoteNamespaceGit <$> writeGitRemoteNamespace
<$> writeGitRemoteNamespace <|> WriteRemoteProjectBranch <$> projectBranchParser
<|> WriteRemoteProjectBranch <|> WriteRemoteNamespaceShare <$> writeShareRemoteNamespace
<$> projectBranchParser
<|> WriteRemoteNamespaceShare
<$> writeShareRemoteNamespace
-- >>> P.parseMaybe writeShareRemoteNamespace "unisonweb.base._releases.M4" -- >>> P.parseMaybe writeShareRemoteNamespace "unisonweb.base._releases.M4"
-- Just (WriteShareRemoteNamespace {server = ShareRepo, repo = "unisonweb", path = base._releases.M4}) -- Just (WriteShareRemoteNamespace {server = ShareRepo, repo = "unisonweb", path = base._releases.M4})