Improve overall style and indenting

2014-10-10 00:19:05 +02:00
parent 22482f7c49
commit 12da4040dc
9 changed files with 237 additions and 195 deletions
--- a/OS/FileExt.hs
+++ b/OS/FileExt.hs
@@ -13,11 +13,11 @@ cmpExt checkExt = (==) checkExt . getExt
 -- |Get the extension of a file.
 getExt :: FilePath -> String
 getExt fp
-  | hasExt fp = last   .
-      splitBy (== '.') .
-      last             .
-      splitBy (== '/') $
-      fp
+  | hasExt fp = last .
+    splitBy (== '.') .
+    last             .
+    splitBy (== '/') $
+    fp
  | otherwise = ""