[project @ 1996-01-18 16:33:17 by partain]

[ghc-hetmet.git] / ghc / compiler / coreSyn / CoreLint.hi

diff --git a/ghc/compiler/coreSyn/CoreLint.hi b/ghc/compiler/coreSyn/CoreLint.hi
index 81f152d..fd1228c 100644 (file)
--- a/ghc/compiler/coreSyn/CoreLint.hi
+++ b/ghc/compiler/coreSyn/CoreLint.hi
@@ -3,6 +3,7 @@ interface CoreLint where
 import CmdLineOpts(GlobalSwitch)
 import CoreSyn(CoreBinding, CoreExpr)
 import Id(Id)
+import Maybes(Labda)
 import PlainCore(PlainCoreBinding(..))
 import Pretty(PprStyle)
 import SrcLoc(SrcLoc)
@@ -11,5 +12,5 @@ data Id
 type PlainCoreBinding = CoreBinding Id Id
 data PprStyle 
 lintCoreBindings :: PprStyle -> [Char] -> Bool -> [CoreBinding Id Id] -> [CoreBinding Id Id]
-lintUnfolding :: SrcLoc -> CoreExpr Id Id -> CoreExpr Id Id
+lintUnfolding :: SrcLoc -> CoreExpr Id Id -> Labda (CoreExpr Id Id)