Remove unnecessary error from fileExtensionMatch

This commit is contained in:
Yvee1 2020-01-27 22:11:50 +01:00
parent 3a5df29251
commit 194afe697f

View File

@ -782,7 +782,6 @@ fileExtensionMatch ext i = case fileInfoFileType i of
Just Directory -> True
Just RegularFile -> ('.' : (toLower <$> ext)) `isSuffixOf` (toLower <$> fileInfoFilename i)
Just SymbolicLink -> case fileInfoLinkTargetType i of
Nothing -> error "impossible"
Just Directory -> True
_ -> False
_ -> False