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

expose GHC.API.

Browse Source
This commit is contained in:
Kazu Yamamoto 2010-04-30 16:47:23 +09:00
parent 20e68337d8
commit cea624aece
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
List.hs
View File

@ -17,15 +17,10 @@ getDump opt = do
hGetContents hout hGetContents hout
exposedModules :: String -> [String] exposedModules :: String -> [String]
exposedModules cs = results exposedModules cs = concatMap words ms
where where
ls = unfoldLines cs ls = unfoldLines cs
ns = values "name: " ls
ms = values "exposed-modules: " ls ms = values "exposed-modules: " ls
zs = zip ns ms
xs = filter (\(nm,_) -> nm `notElem` ["ghc", "ghc-prim", "rts", "integer"]) zs
ss = map snd xs
results = filter (\x -> not ("GHC" `isPrefixOf` x)) $ concatMap words ss
values :: String -> [String] -> [String] values :: String -> [String] -> [String]
values tag ls = value values tag ls = value