From 0c364245db08265992de49560977063bbb271163 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 7 Jan 2023 17:37:38 +0100
Subject: Fix config lookup trying parents of root indefinitely

---
 src/Config.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/Config.hs')

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
-- 
cgit v1.2.3