Simplify hasExt

This commit is contained in:
hasufell 2014-10-07 00:41:03 +02:00
parent dd33a8b252
commit c5621104df
1 changed files with 1 additions and 3 deletions

View File

@ -32,9 +32,7 @@ getExt fp
-- |Check if the file has an extension.
hasExt :: FilePath -> Bool
hasExt fp
| (<= 1) . length . splitBy (== '.') $ fp = False
| otherwise = True
hasExt = (>1) . length . splitBy (== '.')
-- |Split an array into subarrays depending on a given condition.