diff options
Diffstat (limited to 'git-repair.hs')
-rw-r--r-- | git-repair.hs | 2 |
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 |