fixing path resolution

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