Fix config lookup trying parents of root indefinitely

1 files changed, 4 insertions, 1 deletions

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