Small optimisation: allow lookForInline to skip over CmmNop too
Nothing -> Nothing
Just stmts -> Just (stmt:stmts)
Nothing -> Nothing
Just stmts -> Just (stmt:stmts)
+lookForInline u expr (CmmNop : rest)
+ = lookForInline u expr rest
+
lookForInline u expr (stmt:stmts)
= case lookupUFM (getStmtUses stmt) u of
Just 1 -> Just (inlineStmt u expr stmt : stmts)
lookForInline u expr (stmt:stmts)
= case lookupUFM (getStmtUses stmt) u of
Just 1 -> Just (inlineStmt u expr stmt : stmts)