hasufell/cga
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Simplify hasExt

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Util.hs
View File

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