[commit: ghc] master: LLVM mangler: fix AVX instruction rewriter. (bb63e83)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/bb63e83ae279a1e410bdb3dc6d28943e8e024d07/ghc

>---------------------------------------------------------------

commit bb63e83ae279a1e410bdb3dc6d28943e8e024d07
Author: Austin Seipp <austin at well-typed.com>
Date:   Tue Jan 7 01:03:48 2014 -0600

    LLVM mangler: fix AVX instruction rewriter.
    
    This was pretty badly broken...
    
    Authored-by: Ben Gamari <bgamari.foss at gmail.com>
    Signed-off-by: Austin Seipp <austin at well-typed.com>


>---------------------------------------------------------------

bb63e83ae279a1e410bdb3dc6d28943e8e024d07
 compiler/llvmGen/LlvmMangler.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/llvmGen/LlvmMangler.hs b/compiler/llvmGen/LlvmMangler.hs
index 2e8f34d..8815011 100644
--- a/compiler/llvmGen/LlvmMangler.hs
+++ b/compiler/llvmGen/LlvmMangler.hs
@@ -118,7 +118,7 @@ rewriteInstructions matchBS replaceBS (hdr, cts) =
   where
     loop :: B.ByteString -> B.ByteString
     loop cts =
-        case B.breakSubstring cts matchBS of
+        case B.breakSubstring matchBS cts of
           (hd,tl) | B.null tl -> hd
                   | otherwise -> hd `B.append` replaceBS `B.append`
                                  loop (B.drop (B.length matchBS) tl)