X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FcoreSyn%2FCoreUnfold.lhs;h=45b8b927763121dcac331b0d77948af5e0f3501f;hp=4e8e5ef9825a1a953d576027a16e1515e1bce8f2;hb=109eb1e9f31cc9fbec194dcc9cfd732d990c2678;hpb=7c0bfc36a39ab8e181cca97be3e5b21dda9be0cb diff --git a/compiler/coreSyn/CoreUnfold.lhs b/compiler/coreSyn/CoreUnfold.lhs index 4e8e5ef..45b8b92 100644 --- a/compiler/coreSyn/CoreUnfold.lhs +++ b/compiler/coreSyn/CoreUnfold.lhs @@ -799,8 +799,9 @@ simpleOptExpr subst expr ---------------------- go_nonrec subst b (Type ty') body | isTyVar b = go (extendTvSubst subst b ty') body + -- let a::* = TYPE ty in go_nonrec subst b r' body - | isId b + | isId b -- let x = e in , exprIsTrivial r' || safe_to_inline (idOccInfo b) = go (extendIdSubst subst b r') body go_nonrec subst b r' body