projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
1cc3d6d
)
tiny refactoring
author
Simon Marlow
<simonmar@microsoft.com>
Tue, 9 Oct 2007 14:50:02 +0000
(14:50 +0000)
committer
Simon Marlow
<simonmar@microsoft.com>
Tue, 9 Oct 2007 14:50:02 +0000
(14:50 +0000)
compiler/iface/MkIface.lhs
patch
|
blob
|
history
diff --git
a/compiler/iface/MkIface.lhs
b/compiler/iface/MkIface.lhs
index
8c1b2a0
..
d2cef9d
100644
(file)
--- 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)