[project @ 2000-02-03 13:55:21 by sewardj]

[ghc-hetmet.git] / ghc / interpreter / type.c

diff --git a/ghc/interpreter/type.c b/ghc/interpreter/type.c
index 2446ce0..c46657b 100644 (file)
--- a/ghc/interpreter/type.c
+++ b/ghc/interpreter/type.c
@@ -9,8 +9,8 @@
  * included in the distribution.
  *
  * $RCSfile: type.c,v $
- * $Revision: 1.22 $
- * $Date: 2000/01/12 14:52:54 $
+ * $Revision: 1.23 $
+ * $Date: 2000/02/03 13:55:22 $
  * ------------------------------------------------------------------------*/
 
 #include "prelude.h"
@@ -2807,6 +2807,7 @@ Int what; {
                nameUnit     = findQualNameWithoutConsultingExportList
                                  (mkQVar(findText("PrelBase"),
                                          findText("()")));
+               typeVarToVar = fn(aVar,aVar);
            }
            break;