From: panne <unknown>
Date: Sat, 21 May 2005 15:20:43 +0000 (+0000)
Subject: [project @ 2005-05-21 15:20:43 by panne]
X-Git-Tag: Initial_conversion_from_CVS_complete~496
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=78b06ae394b167950fabdf9163f35ee70d3dbca1

[project @ 2005-05-21 15:20:43 by panne]
Warning police: Removed an overlapped catch-all pattern (which could
really never match due to genprimopcode)
---

diff --git a/ghc/compiler/prelude/PrimOp.lhs b/ghc/compiler/prelude/PrimOp.lhs
index 18024f7..e99eb9d 100644
--- a/ghc/compiler/prelude/PrimOp.lhs
+++ b/ghc/compiler/prelude/PrimOp.lhs
@@ -55,7 +55,6 @@ primOpTag op = iBox (tagOf_PrimOp op)
 -- supplies   
 -- tagOf_PrimOp :: PrimOp -> FastInt
 #include "primop-tag.hs-incl"
-tagOf_PrimOp op = pprPanic# "tagOf_PrimOp: pattern-match" (ppr op)
 
 
 instance Eq PrimOp where