X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fprelude%2FPrimOp.lhs;fp=ghc%2Fcompiler%2Fprelude%2FPrimOp.lhs;h=e99eb9d17c60ff6001cf9cc8e4a1770b71149450;hb=78b06ae394b167950fabdf9163f35ee70d3dbca1;hp=18024f7def199cb96561c49c857b1dc1c730790c;hpb=22cf766063c99241e5f5fc2175a60fc63f7a36f3;p=ghc-hetmet.git

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