expose GHC.API.
This commit is contained in:
parent
20e68337d8
commit
cea624aece
7
List.hs
7
List.hs
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user