diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2013-01-25 12:50:03 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2013-01-25 12:50:03 +0000 |
| commit | a47ee23a82a669808569b3865383bf932b67fa95 (patch) | |
| tree | 44fb218140bc01f507de47ed617d3734094112b0 /compiler/iface/MkIface.lhs | |
| parent | 829be0669c43ecf57c3a5b8b91e194c8f81bb490 (diff) | |
| parent | 388e1e825f79f2d16536fc583a48e5ce9c191b06 (diff) | |
| download | haskell-a47ee23a82a669808569b3865383bf932b67fa95.tar.gz | |
Merge branch 'master' of http://darcs.haskell.org/ghc
Diffstat (limited to 'compiler/iface/MkIface.lhs')
| -rw-r--r-- | compiler/iface/MkIface.lhs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/iface/MkIface.lhs b/compiler/iface/MkIface.lhs index bf6c1d7768..f145ec1a3a 100644 --- a/compiler/iface/MkIface.lhs +++ b/compiler/iface/MkIface.lhs @@ -1696,7 +1696,7 @@ toIfaceIdDetails other = pprTrace "toIfaceIdDetails" (p toIfaceIdInfo :: IdInfo -> IfaceIdInfo toIfaceIdInfo id_info - = case catMaybes [arity_hsinfo, caf_hsinfo, strict_hsinfo, + = case catMaybes [arity_hsinfo, caf_hsinfo, strict_hsinfo, inline_hsinfo, unfold_hsinfo] of [] -> NoInfo infos -> HasInfo infos @@ -1716,9 +1716,9 @@ toIfaceIdInfo id_info ------------ Strictness -------------- -- No point in explicitly exporting TopSig - strict_hsinfo = case strictnessInfo id_info of - Just sig | not (isTopSig sig) -> Just (HsStrictness sig) - _other -> Nothing + sig_info = strictnessInfo id_info + strict_hsinfo | not (isTopSig sig_info) = Just (HsStrictness sig_info) + | otherwise = Nothing ------------ Unfolding -------------- unfold_hsinfo = toIfUnfolding loop_breaker (unfoldingInfo id_info) |