diff options
| -rw-r--r-- | src/HaskellCodeExplorer/PackageInfo.hs | 6 |
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 |