Yep, switching > inlineStmt u a (CmmCall target regs es srt ret) > = CmmCall (infn target) regs es' srt ret > where infn (CmmCallee fn cconv) = CmmCallee fn cconv > infn (CmmPrim p) = CmmPrim p > es' = [ (CmmHinted (inlineExpr u a e) hint) | (CmmHinted e hint) <- es
to > inlineStmt u a (CmmCall target regs es srt ret) > = CmmCall (infn target) regs es' srt ret > where infn (CmmCallee fn cconv) = CmmCallee (inlineExpr u a fn) cconv > infn (CmmPrim p) = CmmPrim p > es' = [ (CmmHinted (inlineExpr u a e) hint) | (CmmHinted e hint) <- es Fixes it. Shall I submit a patch? Cheers, Edward _______________________________________________ Glasgow-haskell-users mailing list Glasgow-haskell-users@haskell.org http://www.haskell.org/mailman/listinfo/glasgow-haskell-users
