unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-10-05 14:17:33 +03:00
Code Issues Projects Releases Wiki Activity

one more code review suggestion

Browse Source
This commit is contained in:
Mitchell Rosen 2022-12-16 12:42:11 -05:00
parent f21e6483e7
commit 6e4bce6ae1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
unison-cli/src/Unison/Cli/MonadUtils.hs
View File

@ -179,7 +179,7 @@ resolveShortCausalHash :: ShortCausalHash -> Cli (Branch IO)
resolveShortCausalHash shortHash = do
Cli.time "resolveShortCausalHash" do
Cli.Env {codebase} <- ask
hash <- Cli.runTransaction (resolveShortCausalHashToCausalHash shortHash) & onLeftM Cli.returnEarly
hash <- Cli.runEitherTransaction (resolveShortCausalHashToCausalHash shortHash)
branch <- liftIO (Codebase.getBranchForHash codebase hash)
pure (fromMaybe Branch.empty branch)