diff options
| -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 |