From 0ae970a4706453451955f6d4b6db60ebc4a49244 Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Sun, 4 Nov 2018 02:09:44 -0500 Subject: comments. --- sensible-directory/src/SensibleDir.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'sensible-directory') 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 $ -- cgit v1.2.3