diff options
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/Uninit.hs | 2 | ||||
| -rw-r--r-- | Command/Unused.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/Command/Uninit.hs b/Command/Uninit.hs index 46a2480e6..6ac3e1216 100644 --- a/Command/Uninit.hs +++ b/Command/Uninit.hs @@ -32,7 +32,7 @@ check = do error "can only run uninit from the top of the git repository" where current_branch = Git.Ref . Prelude.head . lines <$> revhead - revhead = inRepo $ Git.Command.pipeRead + revhead = inRepo $ Git.Command.pipeReadStrict [Params "rev-parse --abbrev-ref HEAD"] seek :: [CommandSeek] diff --git a/Command/Unused.hs b/Command/Unused.hs index 91b21afa5..6fb8f36c6 100644 --- a/Command/Unused.hs +++ b/Command/Unused.hs @@ -251,7 +251,7 @@ withKeysReferencedInGit a = do rs <- relevantrefs <$> showref forM_ rs (withKeysReferencedInGitRef a) where - showref = inRepo $ Git.Command.pipeRead [Param "show-ref"] + showref = inRepo $ Git.Command.pipeReadStrict [Param "show-ref"] relevantrefs = map (Git.Ref . snd) . nubBy uniqref . filter ourbranches . |