Typo: sansative -> sensitive

This commit is contained in:
Yaroslav Halchenko 2023-03-13 19:06:23 -04:00 committed by Joey Hess
parent e018ae1125
commit 0ae5ff797f
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
9 changed files with 20 additions and 20 deletions

View file

@ -22,7 +22,7 @@ data RefSpecPart
| RemoveMatching Glob
allRefSpec :: RefSpec
allRefSpec = [AddMatching $ compileGlob "*" CaseSensative (GlobFilePath False)]
allRefSpec = [AddMatching $ compileGlob "*" CaseSensitive (GlobFilePath False)]
parseRefSpec :: String -> Either String RefSpec
parseRefSpec v = case partitionEithers (map mk $ splitc ':' v) of
@ -31,9 +31,9 @@ parseRefSpec v = case partitionEithers (map mk $ splitc ':' v) of
where
mk ('+':s)
| any (`elem` s) "*?" =
Right $ AddMatching $ compileGlob s CaseSensative (GlobFilePath False)
Right $ AddMatching $ compileGlob s CaseSensitive (GlobFilePath False)
| otherwise = Right $ AddRef $ Ref $ encodeBS s
mk ('-':s) = Right $ RemoveMatching $ compileGlob s CaseSensative (GlobFilePath False)
mk ('-':s) = Right $ RemoveMatching $ compileGlob s CaseSensitive (GlobFilePath False)
mk "reflog" = Right AddRefLog
mk s = Left $ "bad refspec item \"" ++ s ++ "\" (expected + or - prefix)"