X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fcompiler%2FbasicTypes%2FFieldLabel.lhs;h=3a9ec6d776df39b57e8b5038c3de15d3f7c06136;hp=e868385fb7d5e7ea3f0d14f041f0f705d9f0ef1d;hb=438596897ebbe25a07e1c82085cfbc5bdb00f09e;hpb=967cc47f37cb93a5e2b6df7822c9a646f0428247

diff --git a/ghc/compiler/basicTypes/FieldLabel.lhs b/ghc/compiler/basicTypes/FieldLabel.lhs
index e868385..3a9ec6d 100644
--- a/ghc/compiler/basicTypes/FieldLabel.lhs
+++ b/ghc/compiler/basicTypes/FieldLabel.lhs
@@ -1,5 +1,5 @@
 %
-% (c) The AQUA Project, Glasgow University, 1996
+% (c) The AQUA Project, Glasgow University, 1996-1998
 %
 \section[FieldLabel]{The @FieldLabel@ type}
 
@@ -8,9 +8,9 @@ module FieldLabel where
 
 #include "HsVersions.h"
 
-import Name		( Name{-instance Eq/Outputable-}, NamedThing(..), nameUnique )
-import Type		( Type )
+import {-# SOURCE #-}	Type( Type )	-- FieldLabel is compiled very early
 
+import Name		( Name{-instance Eq/Outputable-}, NamedThing(..), nameUnique )
 import Outputable
 import Unique           ( Uniquable(..) )
 \end{code}
@@ -54,5 +54,5 @@ instance NamedThing FieldLabel where
     getName (FieldLabel n _ _) = n
 
 instance Uniquable FieldLabel where
-    uniqueOf (FieldLabel n _ _) = nameUnique n
+    getUnique (FieldLabel n _ _) = nameUnique n
 \end{code}