add: When adding a dotfile, avoid treating its name as an extension.
This commit is contained in:
parent
2572950ca7
commit
899983058f
3 changed files with 12 additions and 1 deletions
|
@ -59,8 +59,11 @@ selectExtension maxlen f
|
|||
es = filter (not . S.null) $ reverse $
|
||||
take 2 $ filter (S.all validInExtension) $
|
||||
takeWhile shortenough $
|
||||
reverse $ S.split (fromIntegral (ord '.')) (P.takeExtensions f)
|
||||
reverse $ S.split (fromIntegral (ord '.')) (P.takeExtensions f')
|
||||
shortenough e = S.length e <= fromMaybe maxExtensionLen maxlen
|
||||
-- Avoid treating a file ".foo" as having its whole name as an
|
||||
-- extension.
|
||||
f' = S.dropWhile (== fromIntegral (ord '.')) (P.takeFileName f)
|
||||
|
||||
validInExtension :: Word8 -> Bool
|
||||
validInExtension c
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue