From 88d52a9da8a9d0f54c160b21d2b1612332185d19 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Sun, 16 Mar 2014 09:27:07 -0700 Subject: [PATCH] cli: don't list both source and exe of an addon --- hledger/Hledger/Cli/Options.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/hledger/Hledger/Cli/Options.hs b/hledger/Hledger/Cli/Options.hs index b19679557..5173f2751 100644 --- 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