fix --is-ancestor option

This commit is contained in:
Joey Hess 2024-05-13 13:52:58 -04:00
parent 34eae54ff9
commit 13a6a20716
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -218,7 +218,7 @@ tree (Ref ref) = extractSha <$$> pipeReadStrict
isAncestor :: Ref -> Ref -> Repo -> IO Bool
isAncestor r1 r2 = runBool
[ Param "merge-base"
, Param "--ancestor"
, Param "--is-ancestor"
, Param (fromRef r1)
, Param (fromRef r2)
]