From 7da4beae4e9602a086ec2011c8123a703e17713b Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Mon, 10 Nov 1997 13:18:59 +0000
Subject: [PATCH] [project @ 1997-11-10 13:18:59 by simonm] oops - xor# is
 dyadic, not monadic.

---
 ghc/compiler/prelude/PrimOp.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/compiler/prelude/PrimOp.lhs b/ghc/compiler/prelude/PrimOp.lhs
index f9818b0..cf63b34 100644
--- a/ghc/compiler/prelude/PrimOp.lhs
+++ b/ghc/compiler/prelude/PrimOp.lhs
@@ -793,8 +793,8 @@ A @Word#@ is an unsigned @Int#@.
 \begin{code}
 primOpInfo AndOp    = Dyadic  SLIT("and#")	wordPrimTy
 primOpInfo OrOp	    = Dyadic  SLIT("or#")	wordPrimTy
+primOpInfo XorOp    = Dyadic  SLIT("xor#")	wordPrimTy
 primOpInfo NotOp    = Monadic SLIT("not#")	wordPrimTy
-primOpInfo XorOp    = Monadic SLIT("xor#")	wordPrimTy
 
 primOpInfo SllOp
   = PrimResult SLIT("shiftL#")  [] [wordPrimTy, intPrimTy] wordPrimTyCon WordRep []
-- 
1.7.10.4