[project @ 1996-04-05 08:26:04 by partain]

[ghc-hetmet.git] / ghc / compiler / basicTypes / FieldLabel.lhs

diff --git a/ghc/compiler/basicTypes/FieldLabel.lhs b/ghc/compiler/basicTypes/FieldLabel.lhs
new file mode 100644 (file)
index 0000000..d28c6c5
--- /dev/null
+++ b/ghc/compiler/basicTypes/FieldLabel.lhs
@@ -0,0 +1,45 @@
+%
+% (c) The AQUA Project, Glasgow University, 1996
+%
+\section[FieldLabel]{The @FieldLabel@ type}
+
+\begin{code}
+#include "HsVersions.h"
+
+module FieldLabel where
+
+import Ubiq{-uitous-}
+
+import Name            ( Name{-instance Eq/Outputable-} )
+import Type            ( Type(..) )
+\end{code}
+
+\begin{code}
+data FieldLabel
+  = FieldLabel Name
+               Type
+               FieldLabelTag
+
+type FieldLabelTag = Int
+
+mkFieldLabel = FieldLabel
+
+firstFieldLabelTag :: FieldLabelTag
+firstFieldLabelTag = 1
+
+allFieldLabelTags :: [FieldLabelTag]
+allFieldLabelTags = [1..]
+
+fieldLabelName (FieldLabel n _  _)   = n
+fieldLabelType (FieldLabel _ ty _)   = ty
+fieldLabelTag  (FieldLabel _ _  tag) = tag
+
+instance Eq FieldLabel where
+    (FieldLabel n1 _ _) == (FieldLabel n2 _ _) = n1 == n2
+
+instance Outputable FieldLabel where
+    ppr sty (FieldLabel n _ _) = ppr sty n
+
+instance NamedThing FieldLabel
+    -- ToDo: fill this in
+\end{code}