diff options
-rw-r--r-- | Utility.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Utility.hs b/Utility.hs index 0053c687b..33db4bb08 100644 --- a/Utility.hs +++ b/Utility.hs @@ -39,8 +39,7 @@ parentDir dir = then slash ++ (join s $ take ((length dirs) - 1) dirs) else "" where - dirs = filter (\x -> length x > 0) $ - split s dir + dirs = filter (\x -> not $ null x) $ split s dir slash = if (not $ isAbsolute dir) then "" else s s = [pathSeparator] |