From 902b9e8722720cef981a4576e3c2ff906bfb237e Mon Sep 17 00:00:00 2001 From: simonpj Date: Thu, 25 Jan 2001 17:48:27 +0000 Subject: [PATCH] [project @ 2001-01-25 17:48:27 by simonpj] Import edits --- ghc/compiler/main/MkIface.lhs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/ghc/compiler/main/MkIface.lhs b/ghc/compiler/main/MkIface.lhs index 2521b4d..2061b98 100644 --- a/ghc/compiler/main/MkIface.lhs +++ b/ghc/compiler/main/MkIface.lhs @@ -15,7 +15,7 @@ import HsSyn import HsCore ( HsIdInfo(..), UfExpr(..), toUfExpr, toUfBndr ) import HsTypes ( toHsTyVars ) import BasicTypes ( Fixity(..), NewOrData(..), - Version, initialVersion, bumpVersion, isLoopBreaker + Version, initialVersion, bumpVersion, ) import RnMonad import RnHsSyn ( RenamedInstDecl, RenamedTyClDecl ) @@ -296,7 +296,6 @@ ifaceTyCls (AnId id) so_far NoStrictnessInfo -> [] info -> [HsStrictness info] - ------------ Worker -------------- work_info = workerInfo id_info has_worker = case work_info of { HasWorker _ _ -> True; other -> False } -- 1.7.10.4