diff options
| author |  Joey Hess <joey@kitenet.net> | 2010-11-17 13:46:50 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2010-11-17 13:46:50 -0400 |
| commit | ab55689164a2fa29af61bce692cfe5df2739b790 (patch) | |
| tree | b1fc61970c7d65b6535b0b6ad05c3de26a975b58 | |
| parent | 535755cf12a063ae19dca65d79614913084e499a (diff) | |
simplifiy
| -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] |