@@ -117,7 +117,7 @@ guessCabalPackageFile
117117 -- ^ 'Right' 'Left' for hpack package, 'Right' 'Right' for cabal package; 'FilePath' is relative to given directory.
118118guessCabalPackageFile dir = do
119119 candidates <- liftIO $
120− filterM doesFileExist
120+ filterM (doesFileExist . (dir </>))
121121 =<< filter (liftA2 (||) (== Hpack.packageConfig) (".cabal" `L.isSuffixOf`))
122122 <$> listDirectory dir
123123 pure $ case L.partition (== Hpack.packageConfig) candidates of