summaryrefslogtreecommitdiff
path: root/Utility/CoProcess.hs
diff options
context:
space:
mode:
authorJoey Hess <joeyh@joeyh.name>2016-12-24 14:53:58 -0400
committerJoey Hess <joeyh@joeyh.name>2016-12-24 14:53:58 -0400
commit122b09e2f24cff55c65b84cbccd78ed640a234be (patch)
tree5f9f1929b2fccb9d9a783a0a53f56ba13aae7897 /Utility/CoProcess.hs
parent1b18f539f2bace903c853ce828902a8061007da5 (diff)
downloadgit-repair-122b09e2f24cff55c65b84cbccd78ed640a234be.tar.gz
Merge from git-annex.
Diffstat (limited to 'Utility/CoProcess.hs')
-rw-r--r--Utility/CoProcess.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/Utility/CoProcess.hs b/Utility/CoProcess.hs
index 94d5ac3..2bae40f 100644
--- a/Utility/CoProcess.hs
+++ b/Utility/CoProcess.hs
@@ -47,10 +47,10 @@ start' s = do
rawMode to
return $ CoProcessState pid to from s
where
- rawMode h = do
- fileEncoding h
#ifdef mingw32_HOST_OS
- hSetNewlineMode h noNewlineTranslation
+ rawMode h = hSetNewlineMode h noNewlineTranslation
+#else
+ rawMode _ = return ()
#endif
stop :: CoProcessHandle -> IO ()