[project @ 2000-11-17 17:03:17 by simonmar]

add a few missing cases

diff --git a/ghc/compiler/ghci/StgInterp.lhs b/ghc/compiler/ghci/StgInterp.lhs
index fdb7385..bcb89ce 100644 (file)
--- a/ghc/compiler/ghci/StgInterp.lhs
+++ b/ghc/compiler/ghci/StgInterp.lhs
@@ -913,6 +913,11 @@ repOf (NonRecI _ _)    = RepI
 repOf (NonRecF _ _)    = RepF
 repOf (NonRecD _ _)    = RepD
 
+repOf (RecP _ _)       = RepP
+repOf (RecI _ _)       = RepI
+repOf (RecF _ _)       = RepF
+repOf (RecD _ _)       = RepD
+
 repOf (LitI _)         = RepI
 repOf (LitF _)         = RepF
 repOf (LitD _)         = RepD