[project @ 2000-11-21 09:55:47 by simonmar]

add missing case

diff --git a/ghc/compiler/ghci/StgInterp.lhs b/ghc/compiler/ghci/StgInterp.lhs
index bcb89ce..f0f74ba 100644 (file)
--- a/ghc/compiler/ghci/StgInterp.lhs
+++ b/ghc/compiler/ghci/StgInterp.lhs
@@ -922,6 +922,8 @@ repOf (LitI _)         = RepI
 repOf (LitF _)         = RepF
 repOf (LitD _)         = RepD
 
+repOf (Native _)       = RepP
+
 repOf (VarP _)         = RepI
 repOf (VarI _)         = RepI
 repOf (VarF _)         = RepF