From 7616ed9b8eb5cae9caeed5fe15db3b2d8a36e6fc Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 26 Aug 2011 00:46:52 +0000
Subject: [PATCH] haddocks

---
 hledger/Hledger/Cli/Options.hs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/hledger/Hledger/Cli/Options.hs b/hledger/Hledger/Cli/Options.hs
index 63917b7ca..e8bff693e 100644
--- a/hledger/Hledger/Cli/Options.hs
+++ b/hledger/Hledger/Cli/Options.hs
@@ -331,9 +331,14 @@ getHledgerCliOpts addons = do
 
 -- utils
 
+-- | Get the unique suffixes (without hledger-) of hledger-* executables
+-- found in the current user's PATH, or the empty list if there is any
+-- problem.
 getHledgerAddonCommands :: IO [String]
 getHledgerAddonCommands = map (drop (length progname + 1)) `fmap` getHledgerProgramsInPath
 
+-- | Get the unique names of hledger-* executables found in the current
+-- user's PATH, or the empty list if there is any problem.
 getHledgerProgramsInPath :: IO [String]
 getHledgerProgramsInPath = do
   pathdirs <- splitOn ":" `fmap` getEnv "PATH"