cli: don't list both source and exe of an addon

2014-03-16 09:27:07 -07:00 · 2014-03-16 09:27:07 -07:00 · 88d52a9da8
commit 88d52a9da8
parent d1b9273b19
1 changed files with 2 additions and 1 deletions
--- a/hledger/Hledger/Cli/Options.hs
+++ b/hledger/Hledger/Cli/Options.hs
@ -565,7 +565,8 @@ getHledgerExesInPath :: IO [String]
 getHledgerExesInPath = do
  pathdirs <- splitOn ":" `fmap` getEnvSafe "PATH"
  pathfiles <- concat `fmap` mapM getDirectoryContentsSafe pathdirs
-  let hledgernamed = nub $ sort $ filter isHledgerExeName pathfiles
+  let hledgernamed = nubBy (\a b -> striphs a == striphs b) $ sort $ filter isHledgerExeName pathfiles
+                       where striphs = regexReplace "\\.l?hs$" ""
  -- hledgerexes <- filterM isExecutable hledgernamed
  return hledgernamed