File extension is in extensions list: Difference between revisions

no edit summary
No edit summary
No edit summary
Line 22:
isExt filename extensions = any (`elem` allTails) lowerExtensions
where allTails = tails . toLower $ filename
lowerExtensions = map toLower extensions
</lang>
 
Anonymous user