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

Remove Debug.Trace

Browse Source
This commit is contained in:
Avi Dessauer 2020-05-12 19:21:04 -04:00
parent 48c33baf84
commit b794a576b7
2 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
hie.yaml
View File

@ -2,10 +2,9 @@ cradle:
cabal:
- path: "src"
component: "lib:implicit-hie"
- path: "app/Main.hs"
component: "implicit-hie:exe:gen-hie"
- path: "test"
component: "implicit-hie:test:implicit-hie-test"

3
src/Hie/Locate.hs
View File

@ -26,7 +26,6 @@ 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)
@ -50,7 +49,7 @@ cabalPkgs p = do
[] -> fail "no cabal files found"
h : _ -> pure [p </> h]
xs -> do
cd <- liftIO $ map (p </>) <$> getDirectoryFiles p (map (matchDirs . traceShowId . T.unpack) xs)
cd <- liftIO $ map (p </>) <$> getDirectoryFiles p (map (matchDirs . T.unpack) xs)
cf <-
liftIO $
mapM (\p -> if takeExtension p == ".cabal" then pure [p] else cfs p) cd