From 014057f68716515a50ab79ba8c17af3a4dc2bea4 Mon Sep 17 00:00:00 2001
From: Yuchen Pei <hi@ypei.me>
Date: Wed, 8 Jun 2022 11:41:00 +1000
Subject: fixing path resolution

---
 src/HaskellCodeExplorer/PackageInfo.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/HaskellCodeExplorer/PackageInfo.hs b/src/HaskellCodeExplorer/PackageInfo.hs
index 4fe22ea..bb7455a 100644
--- a/src/HaskellCodeExplorer/PackageInfo.hs
+++ b/src/HaskellCodeExplorer/PackageInfo.hs
@@ -122,6 +122,7 @@ import System.Directory
   , getCurrentDirectory
   , makeAbsolute
   , getDirectoryContents
+  , canonicalizePath
   )
 import qualified System.Directory.Tree as DT
 import System.Exit (exitFailure)
@@ -195,8 +196,9 @@ createPackageInfo packageDirectoryPath mbDistDirRelativePath sourceCodePreproces
   mbPackage <- liftIO $
     findM
     (\pkg -> do
-        dir <- (fmap (</> "") . fmap normalise . makeAbsolute . pSourceDir) pkg
-        return $ dir == packageDirectoryAbsPath </> "")
+        dir1 <- (canonicalizePath . pSourceDir) pkg
+        dir2 <- canonicalizePath packageDirectoryAbsPath
+        return $ dir1 == dir2)
     packages
   package <-
     case mbPackage of
-- 
cgit v1.2.3