diff options
Diffstat (limited to 'Omni/Agent/Git.hs')
| -rw-r--r-- | Omni/Agent/Git.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Omni/Agent/Git.hs b/Omni/Agent/Git.hs index a64eee8..4c06cf6 100644 --- a/Omni/Agent/Git.hs +++ b/Omni/Agent/Git.hs @@ -205,11 +205,11 @@ isMerged repo branch target = do pure (code == Exit.ExitSuccess) listBranches :: FilePath -> Text -> IO [Text] -listBranches repo pattern = do - let cmd = (Process.proc "git" ["branch", "--list", Text.unpack pattern, "--format=%(refname:short)"]) {Process.cwd = Just repo} +listBranches repo pat = do + let cmd = (Process.proc "git" ["branch", "--list", Text.unpack pat, "--format=%(refname:short)"]) {Process.cwd = Just repo} (code, out, _) <- Process.readCreateProcessWithExitCode cmd "" case code of - Exit.ExitSuccess -> pure <| filter (not . Text.null) (Text.lines (Text.pack out)) + Exit.ExitSuccess -> pure <| filter (not <. Text.null) (Text.lines (Text.pack out)) _ -> panic "git branch list failed" showFile :: FilePath -> Text -> FilePath -> IO (Maybe Text) |