diff options
author | Joey Hess <joeyh@joeyh.name> | 2016-10-31 18:35:38 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-10-31 18:39:37 -0400 |
commit | 8d607c894f8bfae17f6e4f5df81ce1c7decf9fa9 (patch) | |
tree | 370e9485fd50f2c187ca35e7fadb1afee65d0d0a /Git | |
parent | f6773a28f870e441a7cdad66ce586008a6eff32e (diff) |
Fix reversion in 6.20161012 that prevented adding files with a space in their name.
Diffstat (limited to 'Git')
-rw-r--r-- | Git/CatFile.hs | 23 |
1 files changed, 12 insertions, 11 deletions
diff --git a/Git/CatFile.hs b/Git/CatFile.hs index a377a08f7..9af46fb51 100644 --- a/Git/CatFile.hs +++ b/Git/CatFile.hs @@ -109,17 +109,18 @@ query hdl object receive = CoProcess.query hdl send receive send to = hPutStrLn to (fromRef object) parseResp :: Ref -> String -> Maybe ParsedResp -parseResp object l = case words l of - [sha, objtype, size] - | length sha == shaSize -> - case (readObjectType objtype, reads size) of - (Just t, [(bytes, "")]) -> - Just $ ParsedResp (Ref sha) bytes t - _ -> Nothing - | otherwise -> Nothing - _ - | l == fromRef object ++ " missing" -> Just DNE - | otherwise -> Nothing +parseResp object l + | " missing" `isSuffixOf` l -- less expensive than full check + && l == fromRef object ++ " missing" = Just DNE + | otherwise = case words l of + [sha, objtype, size] + | length sha == shaSize -> + case (readObjectType objtype, reads size) of + (Just t, [(bytes, "")]) -> + Just $ ParsedResp (Ref sha) bytes t + _ -> Nothing + | otherwise -> Nothing + _ -> Nothing {- Gets a list of files and directories in a tree. (Not recursive.) -} catTree :: CatFileHandle -> Ref -> IO [(FilePath, FileMode)] |