blob: f1dacb1d62ed66fa5fe44a64b7ec1e13c1c4d7f8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
module Main(main) where
-- Calculate the number of module dependencies of 'Parser.' If that
-- number exceeds a threshold, that indicates that the dependencies
-- have significantly gone up via the commit under test (and the test
-- is deemed to fail). In that case, this most likely means a cycle
-- has arisen that pulls in modules for Core generation. The
-- motivation for not allowing that to happen is so that the
-- 'ghc-lib-parser' package subset of the GHC API can continue to be
-- provided with as small a number of modules as possible for when the
-- need exists to produce ASTs and nothing more.
import CountDeps
main :: IO ()
main = printDeps "GHC.Parser"
|
