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 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 |