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

Tweaks to dynamic-too code

parent 7bf6eb9a
......@@ -568,8 +568,12 @@ findAndReadIface doc_str mod hi_boot_file
Succeeded (dynIface, _)
| mi_mod_hash iface == mi_mod_hash dynIface ->
return ()
_ ->
liftIO $ writeIORef ref False
| otherwise ->
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 ()
\end{code}
......
......@@ -1115,7 +1115,7 @@ wayOptP _ WayNDP = []
-- | Used by 'GHC.newSession' to partially initialize a new 'DynFlags' value
initDynFlags :: DynFlags -> IO DynFlags
initDynFlags dflags = do
refCanGenerateDynamicToo <- newIORef False
refCanGenerateDynamicToo <- newIORef True
refFilesToClean <- newIORef []
refDirsToClean <- newIORef Map.empty
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