From: simonpj Date: Thu, 25 Jan 2001 17:48:27 +0000 (+0000) Subject: [project @ 2001-01-25 17:48:27 by simonpj] X-Git-Tag: Approximately_9120_patches~2818 X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=902b9e8722720cef981a4576e3c2ff906bfb237e;p=ghc-hetmet.git [project @ 2001-01-25 17:48:27 by simonpj] Import edits --- 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 }