From: Simon Marlow <simonmar@microsoft.com>
Date: Tue, 9 Oct 2007 14:50:02 +0000 (+0000)
Subject: tiny refactoring
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=efe8ba481ead411da8f5e2920492e6988677fb79;hp=1cc3d6d110594517f2c7adc72d7b4f99db287277;p=ghc-hetmet.git

tiny refactoring
---

diff --git a/compiler/iface/MkIface.lhs b/compiler/iface/MkIface.lhs
index 8c1b2a0..d2cef9d 100644
--- a/compiler/iface/MkIface.lhs
+++ b/compiler/iface/MkIface.lhs
@@ -1335,7 +1335,7 @@ toIfaceIdInfo id_info
 
     ------------  Worker  --------------
     work_info   = workerInfo id_info
-    has_worker  = case work_info of { HasWorker _ _ -> True; other -> False }
+    has_worker  = workerExists work_info
     wrkr_hsinfo = case work_info of
 		    HasWorker work_id wrap_arity -> 
 			Just (HsWorker ((idName work_id)) wrap_arity)