From 122b09e2f24cff55c65b84cbccd78ed640a234be Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 24 Dec 2016 14:53:58 -0400 Subject: Merge from git-annex. --- git-repair.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'git-repair.hs') diff --git a/git-repair.hs b/git-repair.hs index a82d5d6..4076c15 100644 --- a/git-repair.hs +++ b/git-repair.hs @@ -15,6 +15,7 @@ import qualified Git.Construct import qualified Git.Destroyer import qualified Git.Fsck import Utility.Tmp +import Utility.FileSystemEncoding data Settings = Settings { forced :: Bool @@ -46,7 +47,9 @@ parseSettings = Settings ) main :: IO () -main = execParser opts >>= go +main = do + useFileSystemEncoding + execParser opts >>= go where opts = info (helper <*> parseSettings) desc desc = fullDesc -- cgit v1.2.3