diff options
-rw-r--r-- | Git/CheckAttr.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/Git/CheckAttr.hs b/Git/CheckAttr.hs index 3e9375159..5c747a951 100644 --- a/Git/CheckAttr.hs +++ b/Git/CheckAttr.hs @@ -16,10 +16,9 @@ import qualified Git.Version lookup :: String -> [FilePath] -> Repo -> IO [(FilePath, String)] lookup attr files repo = do cwd <- getCurrentDirectory - (_, fromh, toh) <- hPipeBoth "git" (toCommand params) - hPutStr toh $ join "\0" $ input cwd - hClose toh - zip files . map attrvalue . lines <$> hGetContents fromh + (_, r) <- pipeBoth "git" (toCommand params) $ + join "\0" $ input cwd + return $ zip files $ map attrvalue $ lines r where params = gitCommandLine [ Param "check-attr" |