king: do not commit files starting with a dot

This commit is contained in:
Liam Fitzgerald 2021-04-20 15:32:26 +10:00
parent 7084d8951d
commit e6857d5797
No known key found for this signature in database
GPG Key ID: D390E12C61D1CFFB

View File

@ -42,7 +42,7 @@ validClaySyncPath fp = hasPeriod && notTildeFile && notDotHash && notDoubleHash
fileName = takeFileName fp
hasPeriod = elem '.' fileName
notTildeFile = not $ "~" `isSuffixOf` fileName
notDotHash = not $ ".#" `isPrefixOf` fileName
notDotHash = not $ "." `isPrefixOf` fileName
notDoubleHash =
not $ ("#" `isPrefixOf` fileName) && ("#" `isSuffixOf` fileName)