Fix some validation errors

[ghc-hetmet.git] / compiler / nativeGen / SPARC / CodeGen / CCall.hs

diff --git a/compiler/nativeGen/SPARC/CodeGen/CCall.hs b/compiler/nativeGen/SPARC/CodeGen/CCall.hs
index d488168..0a26c23 100644 (file)
--- a/compiler/nativeGen/SPARC/CodeGen/CCall.hs
+++ b/compiler/nativeGen/SPARC/CodeGen/CCall.hs
@@ -85,10 +85,10 @@ genCCall target dest_regs argsAndHints
                             (mop == MO_Memcpy ||
                              mop == MO_Memset ||
                              mop == MO_Memmove)
-                          -> init argsAndHints
+                          = init argsAndHints
 
                           | otherwise
-                          -> argsAndHints
+                          = argsAndHints
                 
        -- strip hints from the arg regs
        let args :: [CmmExpr]