diff options
Diffstat (limited to 'src/Config.hs')
| -rw-r--r-- | src/Config.hs | 5 |
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 |