Avi-D-coder/implicit-hie
1
1
Fork 0
mirror of https://github.com/Avi-D-coder/implicit-hie.git synced 2024-11-22 17:55:51 +03:00
Code Issues Projects Releases Wiki Activity

Fix package .

Browse Source
This commit is contained in:
Avi Dessauer 2020-05-12 18:15:11 -04:00
parent 6c0a91c56a
commit 48c33baf84
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Hie/Locate.hs
View File

@ -26,6 +26,7 @@ import Hie.Yaml
import System.Directory
import System.FilePath.Posix
import System.FilePattern.Directory (getDirectoryFiles)
import Debug.Trace
newtype Pkgs = Pkgs [FilePath]
deriving (Eq, Ord)
@ -49,7 +50,7 @@ cabalPkgs p = do
[] -> fail "no cabal files found"
h : _ -> pure [p </> h]
xs -> do
cd <- liftIO $ map (p </>) <$> getDirectoryFiles p (map (matchDirs . T.unpack) xs)
cd <- liftIO $ map (p </>) <$> getDirectoryFiles p (map (matchDirs . traceShowId . T.unpack) xs)
cf <-
liftIO $
mapM (\p -> if takeExtension p == ".cabal" then pure [p] else cfs p) cd
@ -57,7 +58,8 @@ cabalPkgs p = do
where
cabalP n = liftIO (try $ T.readFile $ p </> n :: IO (Either IOException T.Text))
cfs d = filter ((".cabal" ==) . takeExtension) <$> listDirectory d
matchDirs p | "/" `isSuffixOf` p = p <> "*.cabal"
matchDirs "." = "./*.cabal"
matchDirs p | "/" `isSuffixOf` p || p == "." = p <> "*.cabal"
matchDirs p | "*" `isSuffixOf` p || takeExtension p == "" = p <> "/*.cabal"
matchDirs p = p