summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Config.hs5
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Config.hs b/src/Config.hs
index 7e9ad85..f9acac4 100644
--- a/src/Config.hs
+++ b/src/Config.hs
@@ -81,7 +81,10 @@ findConfig = go "."
doesFileExist (path </> name) >>= \case
True -> return $ Just $ path </> name
False -> doesDirectoryExist (path </> "..") >>= \case
- True -> go (path </> "..")
+ True -> do
+ parent <- canonicalizePath $ path </> ".."
+ if parent /= path then go parent
+ else return Nothing
False -> return Nothing
parseConfig :: FilePath -> IO Config