X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FhsSyn%2FHsSyn.lhs;h=be7e0036df4bf920fb9af56a83d612378b03594d;hp=ce748ebfab65cc788d317c240e6f87b9f336433e;hb=e5c3b478b3cd1707cf122833822f44b2ac09b8e9;hpb=b2bd63f99d643f6b3eb30bb72bb9ae26d4183252

diff --git a/compiler/hsSyn/HsSyn.lhs b/compiler/hsSyn/HsSyn.lhs
index ce748eb..be7e003 100644
--- a/compiler/hsSyn/HsSyn.lhs
+++ b/compiler/hsSyn/HsSyn.lhs
@@ -23,7 +23,7 @@ module HsSyn (
 	module HsDoc,
 	Fixity,
 
-	HsModule(..), HsExtCore(..),
+	HsModule(..), HsExtCore(..), CodeFlavor(..)
 ) where
 
 -- friends:
@@ -50,6 +50,9 @@ import Data.Data hiding ( Fixity )
 \end{code}
 
 \begin{code}
+
+data CodeFlavor = LambdaFlavor | KappaFlavor
+
 -- | All we actually declare here is the top-level structure for a module.
 data HsModule name
   = HsModule {