Marge Bot pushed to branch master at Glasgow Haskell Compiler / GHC

Commits:

1 changed file:

Changes:

  • compiler/GHC/Driver/Main.hs
    ... ... @@ -165,7 +165,7 @@ import GHC.JS.Syntax
    165 165
     
    
    166 166
     import GHC.IfaceToCore  ( typecheckIface, typecheckWholeCoreBindings )
    
    167 167
     
    
    168
    -import GHC.Iface.Load   ( ifaceStats, writeIface, flagsToIfCompression, getGhcPrimIface )
    
    168
    +import GHC.Iface.Load   ( ifaceStats, writeIface, flagsToIfCompression, getGhcPrimIface, loadSysInterface )
    
    169 169
     import GHC.Iface.Make
    
    170 170
     import GHC.Iface.Recomp
    
    171 171
     import GHC.Iface.Tidy
    
    ... ... @@ -1765,7 +1765,7 @@ hscCheckSafe' m l = do
    1765 1765
             -- so we need to call 'getModuleInterface' to load from disk
    
    1766 1766
             case iface of
    
    1767 1767
                 Just _  -> return iface
    
    1768
    -            Nothing -> snd `fmap` (liftIO $ getModuleInterface hsc_env m)
    
    1768
    +            Nothing -> liftIO $ initIfaceLoad hsc_env (Just <$> loadSysInterface (text "checkSafeImports") m)
    
    1769 1769
     
    
    1770 1770
     
    
    1771 1771
     -- | Check the list of packages are trusted.