Commit 609aecb7 authored by ian@well-typed.com's avatar ian@well-typed.com
Browse files

Tweaks to dynamic-too code

parent 7bf6eb9a
...@@ -568,8 +568,12 @@ findAndReadIface doc_str mod hi_boot_file ...@@ -568,8 +568,12 @@ findAndReadIface doc_str mod hi_boot_file
Succeeded (dynIface, _) Succeeded (dynIface, _)
| mi_mod_hash iface == mi_mod_hash dynIface -> | mi_mod_hash iface == mi_mod_hash dynIface ->
return () return ()
_ -> | otherwise ->
liftIO $ writeIORef ref False do traceIf (text "Dynamic hash doesn't match")
liftIO $ writeIORef ref False
Failed err ->
do traceIf (text "Failed to load dynamic interface file:" $$ err)
liftIO $ writeIORef ref False
checkBuildDynamicToo _ = return () checkBuildDynamicToo _ = return ()
\end{code} \end{code}
......
...@@ -1115,7 +1115,7 @@ wayOptP _ WayNDP = [] ...@@ -1115,7 +1115,7 @@ wayOptP _ WayNDP = []
-- | Used by 'GHC.newSession' to partially initialize a new 'DynFlags' value -- | Used by 'GHC.newSession' to partially initialize a new 'DynFlags' value
initDynFlags :: DynFlags -> IO DynFlags initDynFlags :: DynFlags -> IO DynFlags
initDynFlags dflags = do initDynFlags dflags = do
refCanGenerateDynamicToo <- newIORef False refCanGenerateDynamicToo <- newIORef True
refFilesToClean <- newIORef [] refFilesToClean <- newIORef []
refDirsToClean <- newIORef Map.empty refDirsToClean <- newIORef Map.empty
refFilesToNotIntermediateClean <- newIORef [] refFilesToNotIntermediateClean <- newIORef []
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment