[project @ 1996-01-08 20:28:12 by partain]

[ghc-hetmet.git] / ghc / compiler / envs / LIE.lhs

diff --git a/ghc/compiler/envs/LIE.lhs b/ghc/compiler/envs/LIE.lhs
new file mode 100644 (file)
index 0000000..cd3e38c
--- /dev/null
+++ b/ghc/compiler/envs/LIE.lhs
@@ -0,0 +1,44 @@
+%
+% (c) The GRASP/AQUA Project, Glasgow University, 1992-1994
+%
+\section[LIE]{Id instance environment}
+
+This is not really an ``environment.''
+
+\begin{code}
+#include "HsVersions.h"
+
+module LIE (
+       LIE,            -- abstract type
+       mkLIE, nullLIE, unitLIE, unMkLIE, plusLIE,
+
+       -- imported things so this module's interface is self-contained
+       Inst
+    ) where
+
+import Inst            ( Inst )
+import Outputable
+import Util
+\end{code}
+
+%************************************************************************
+%*                                                                     *
+\subsection[LIE-building]{Building LIEs}
+%*                                                                     *
+%************************************************************************
+
+\begin{code}
+data LIE = MkLIE [Inst]
+
+mkLIE = MkLIE
+
+nullLIE   = MkLIE []
+unitLIE x = MkLIE [x]
+
+unMkLIE :: LIE -> [Inst]
+unMkLIE (MkLIE insts) = insts
+
+plusLIE :: LIE -> LIE -> LIE
+plusLIE (MkLIE lie1) (MkLIE lie2)
+  = MkLIE (lie1 ++ lie2)
+\end{code}