comments.

1 files changed, 4 insertions, 0 deletions

diff --git a/sensible-directory/src/SensibleDir.hs b/sensible-directory/src/SensibleDir.hs
index 0133736d..4e55726d 100644
--- a/sensible-directory/src/SensibleDir.hs
+++ b/sensible-directory/src/SensibleDir.hs
@@ -14,12 +14,15 @@ import Control.Arrow
 import Control.Applicative
 import Data.List
 
+-- | Returns True if "build" occurs as any component of the path of the running executable.
 runningInBuildDir :: IO Bool
 runningInBuildDir = any (=="build") . take 2 . reverse . splitDirectories . takeDirectory <$> getExecutablePath
 
+-- | Returns True if ".cabal" occurs as any component of the path of the running executable.
 runningInCabalDir :: IO Bool
 runningInCabalDir = any (==".cabal") . take 2 . reverse . splitDirectories . takeDirectory <$> getExecutablePath
 
+-- | Returns True if running executable is in /bin, /sbin, or /usr/bin, or /usr/sbin.
 runningInSysBin = do
     exedir <- splitDirectories . takeDirectory <$> getExecutablePath
     return $
@@ -30,6 +33,7 @@ runningInSysBin = do
         ["usr","sbin"]         -> True
         _ -> False
 
+-- | Returns True if executable is within /usr/local/bin or /usr/local/sbin.
 runningInLocalBin = do
     exedir <- splitDirectories . takeDirectory <$> getExecutablePath
     return $