Commit 7653e16d authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

Comments only

parent c02a62c0
......@@ -599,8 +599,9 @@ toIfaceIdInfo ext id_info
unfold_info = unfoldingInfo id_info
inline_prag = inlinePragInfo id_info
rhs = unfoldingTemplate unfold_info
unfold_hsinfo | neverUnfold unfold_info
|| has_worker = Nothing
unfold_hsinfo | neverUnfold unfold_info -- The CoreTidy phase retains unfolding info iff
|| has_worker = Nothing -- we want to expose the unfolding, taking into account
-- unconditional NOINLINE, etc. See TidyPgm.addExternal
| otherwise = Just (HsUnfold inline_prag (toIfaceExpr ext rhs))
--------------------------
......
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