diff options
| author | Yuchen Pei <hi@ypei.me> | 2022-08-18 11:54:09 +1000 |
|---|---|---|
| committer | Yuchen Pei <hi@ypei.me> | 2022-08-18 11:54:09 +1000 |
| commit | a7e0d50337f8dcecf6c5ca09531a33a54230a6c4 (patch) | |
| tree | b6573d56dc1539cd5c8ae929a855839c21778e1c /src/HaskellCodeExplorer/PackageInfo.hs | |
| parent | 8406daa0de72ca5e7173618871afded73c4763c8 (diff) | |
linting
- disambiguate things
Diffstat (limited to 'src/HaskellCodeExplorer/PackageInfo.hs')
| -rw-r--r-- | src/HaskellCodeExplorer/PackageInfo.hs | 16 |
1 files changed, 2 insertions, 14 deletions
diff --git a/src/HaskellCodeExplorer/PackageInfo.hs b/src/HaskellCodeExplorer/PackageInfo.hs index 295f1cb..8e0fbdf 100644 --- a/src/HaskellCodeExplorer/PackageInfo.hs +++ b/src/HaskellCodeExplorer/PackageInfo.hs @@ -13,21 +13,17 @@ module HaskellCodeExplorer.PackageInfo , ghcVersion ) where import Control.DeepSeq ( deepseq ) -import Control.Exception ( IOException - , SomeAsyncException +import Control.Exception ( SomeAsyncException , SomeException , fromException , throw - , try ) import Control.Monad ( foldM , unless , when ) import Control.Monad.Catch ( handle ) -import Control.Monad.Extra ( anyM - , findM - ) +import Control.Monad.Extra ( findM ) import Control.Monad.Logger ( LoggingT(..) , MonadLogger(..) , MonadLoggerIO(..) @@ -120,7 +116,6 @@ import qualified HaskellCodeExplorer.Types as HCE import Prelude hiding ( id ) import System.Directory ( canonicalizePath , doesFileExist - , findExecutable , getCurrentDirectory , getDirectoryContents , makeAbsolute @@ -136,16 +131,9 @@ import System.FilePath ( (</>) , splitDirectories , splitPath , takeBaseName - , takeDirectory , takeExtension , takeFileName ) -import System.FilePath.Find ( (==?) - , always - , fileName - , find - ) -import System.Process ( readProcess ) testCreatePkgInfo :: FilePath -> IO (HCE.PackageInfo HCE.ModuleInfo) testCreatePkgInfo pkgPath = runStdoutLoggingT |