diff options
| -rw-r--r-- | ghc/compiler/nativeGen/MachCode.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/nativeGen/MachCode.lhs b/ghc/compiler/nativeGen/MachCode.lhs index b10a17e44b..d59a3f5bd4 100644 --- a/ghc/compiler/nativeGen/MachCode.lhs +++ b/ghc/compiler/nativeGen/MachCode.lhs @@ -64,7 +64,7 @@ stmt2Instrs stmt = case stmt of StData kind args -> mapAndUnzipUs getData args `thenUs` \ (codes, imms) -> returnUs (\xs -> mkSeqList (asmInstr (DATA (primRepToSize kind) imms)) - (foldr1 (.) codes xs)) + (foldr (.) id codes xs)) where getData :: StixTree -> UniqSM (InstrBlock, Imm) |