mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

more RawFilePath conversion

Browse source 
535/645

This commit was sponsored by Brett Eisenberg on Patreon.
This commit is contained in:
Joey Hess 2020-11-03 10:11:04 -04:00
parent 55400a03d3
commit eb42cd4d46
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
23 changed files with 182 additions and 159 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Git/CheckIgnore.hs
View file

@ -18,6 +18,7 @@ import Git.Command
import qualified Utility.CoProcess as CoProcess
import System.IO.Error
import qualified Data.ByteString as B
type CheckIgnoreHandle = CoProcess.CoProcessHandle
@ -51,11 +52,11 @@ checkIgnoreStop :: CheckIgnoreHandle -> IO ()
checkIgnoreStop = void . tryIO . CoProcess.stop
{- Returns True if a file is ignored. -}
checkIgnored :: CheckIgnoreHandle -> FilePath -> IO Bool
checkIgnored :: CheckIgnoreHandle -> RawFilePath -> IO Bool
checkIgnored h file = CoProcess.query h send (receive "")
where
send to = do
hPutStr to $ file ++ "\0"
B.hPutStr to $ file `B.snoc` 0
hFlush to
receive c from = do
s <- hGetSomeString from 1024