[project @ 2005-01-27 15:52:09 by simonpj]

Wibble

[project @ 2005-01-27 15:52:09 by simonpj]
Wibble
dd08967f · simonpj · a4124cf4 · dd08967f
Commit dd08967f authored Jan 27, 2005 by simonpj
--- a/ghc/compiler/prelude/PrelRules.lhs
+++ b/ghc/compiler/prelude/PrelRules.lhs
@@ -381,7 +381,7 @@ For dataToTag#, we can reduce if either
 	(b) the argument is a variable whose unfolding is a known constructor

 \begin{code}
-dataToTagRule [ty1, Var tag_to_enum `App` ty2 `App` tag]
+dataToTagRule [Type ty1, Var tag_to_enum `App` Type ty2 `App` tag]
  | Just TagToEnumOp <- isPrimOpId_maybe tag_to_enum
  , ty1 `coreEqType` ty2
  = Just tag	-- dataToTag (tagToEnum x)   ==>   x