summaryrefslogtreecommitdiff
path: root/git-repair.hs
diff options
context:
space:
mode:
authorJoey Hess <joeyh@joeyh.name>2021-01-11 21:52:32 -0400
committerJoey Hess <joeyh@joeyh.name>2021-01-11 21:52:32 -0400
commitad48349741384ed0e49fab9cf13ac7f90aba0dd1 (patch)
tree6b8c894ce1057d069f89e7209c266f00ea43ec66 /git-repair.hs
parentb3e72e94efbce652f25fb99d6c6ace8beb2a52d4 (diff)
downloadgit-repair-ad48349741384ed0e49fab9cf13ac7f90aba0dd1.tar.gz
Merge from git-annex.
Diffstat (limited to 'git-repair.hs')
-rw-r--r--git-repair.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/git-repair.hs b/git-repair.hs
index ce4d16a..7ca1854 100644
--- a/git-repair.hs
+++ b/git-repair.hs
@@ -93,7 +93,7 @@ runTest settings damage = withTmpDir "tmprepo" $ \tmpdir -> do
]
unless cloned $
error $ "failed to clone this repo"
- g <- Git.Config.read =<< Git.Construct.fromPath cloneloc
+ g <- Git.Config.read =<< Git.Construct.fromPath (toRawFilePath cloneloc)
Git.Destroyer.applyDamage damage g
repairstatus <- catchMaybeIO $ Git.Repair.successfulRepair
<$> Git.Repair.runRepair Git.Repair.isTrackingBranch (forced settings) g