hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

error handling for modules.

Browse Source
This commit is contained in:
Kazu Yamamoto 2014-04-24 12:51:43 +09:00
parent 93dadfef44
commit 4074c3d751
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Language/Haskell/GhcMod/List.hs
View File

@ -1,6 +1,7 @@
module Language.Haskell.GhcMod.List (listModules, modules) where module Language.Haskell.GhcMod.List (listModules, modules) where
import Control.Applicative ((<$>)) import Control.Applicative ((<$>))
import Control.Exception (SomeException(..))
import Control.Monad (void) import Control.Monad (void)
import Data.List (nub, sort) import Data.List (nub, sort)
import GHC (Ghc) import GHC (Ghc)
@ -20,15 +21,17 @@ listModules opt cradle = withGHC' $ do
-- | Listing installed modules. -- | Listing installed modules.
modules :: Options -> Ghc String modules :: Options -> Ghc String
modules opt = convert opt . arrange <$> G.getSessionDynFlags modules opt = convert opt . arrange <$> (getModules `G.gcatch` handler)
where where
arrange = nub . sort . map dropPkgs . getExposedModules getModules = getExposedModules <$> G.getSessionDynFlags
getExposedModules = concatMap exposedModules' getExposedModules = concatMap exposedModules'
. eltsUFM . pkgIdMap . G.pkgState . eltsUFM . pkgIdMap . G.pkgState
exposedModules' p = exposedModules' p =
map G.moduleNameString (exposedModules p) map G.moduleNameString (exposedModules p)
`zip` `zip`
repeat (display $ sourcePackageId p) repeat (display $ sourcePackageId p)
arrange = nub . sort . map dropPkgs
dropPkgs (name, pkg) dropPkgs (name, pkg)
| detailed opt = name ++ " " ++ pkg | detailed opt = name ++ " " ++ pkg
| otherwise = name | otherwise = name
handler (SomeException _) = return []