From 63fb0bfc26f42ba66c353e915e6e8219be679d07 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(-)

diff --git a/src/Config.hs b/src/Config.hs
index 3c0545a..2079092 100644
--- a/src/Config.hs
+++ b/src/Config.hs
@@ -52,7 +52,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