diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2019-08-04 18:44:59 -0400 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-08-10 14:40:03 -0400 |
| commit | 422ffce0c65f34046fa5b4aea4f801a070bb5249 (patch) | |
| tree | 208b972543b6e0616ba112422b311a6b59aef973 /compiler/iface/LoadIface.hs | |
| parent | 818602818bb8553b241271204d159d5a40971d5a (diff) | |
| download | haskell-422ffce0c65f34046fa5b4aea4f801a070bb5249.tar.gz | |
Add timing on loadInterface
AndreasK recently mentioned that he thought that interface file loading
may be a non-trivial cost. Let's measure.
Diffstat (limited to 'compiler/iface/LoadIface.hs')
| -rw-r--r-- | compiler/iface/LoadIface.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/iface/LoadIface.hs b/compiler/iface/LoadIface.hs index 497ddfc179..16963dcb94 100644 --- a/compiler/iface/LoadIface.hs +++ b/compiler/iface/LoadIface.hs @@ -399,7 +399,8 @@ loadInterface doc_str mod from -- Redo search for our local hole module loadInterface doc_str (mkModule (thisPackage dflags) (moduleName mod)) from | otherwise - = do { -- Read the state + = withTiming getDynFlags (text "loading interface") (pure ()) $ + do { -- Read the state (eps,hpt) <- getEpsAndHpt ; gbl_env <- getGblEnv |