X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypecheck%2FTcIfaceSig.lhs;h=1778c8e6ca75767e86659751a7b23a6f4032e0e4;hb=b822aa0e9411a1909988c0367d342671806a0f75;hp=57ff4c03190b941b9af6645cb798dadd9ce20227;hpb=bbf0592f8d10fba986888d229ff3c22b8cbe73de;p=ghc-hetmet.git

diff --git a/ghc/compiler/typecheck/TcIfaceSig.lhs b/ghc/compiler/typecheck/TcIfaceSig.lhs
index 57ff4c0..1778c8e 100644
--- a/ghc/compiler/typecheck/TcIfaceSig.lhs
+++ b/ghc/compiler/typecheck/TcIfaceSig.lhs
@@ -96,7 +96,7 @@ tcIdInfo unf_env in_scope_vars name ty info info_ins
 		-- is never inspected; so the typecheck doesn't even happen
 		unfold_info = case maybe_expr' of
 				Nothing    -> noUnfolding
-				Just expr' -> mkTopUnfolding (cprInfo info) expr' 
+				Just expr' -> mkTopUnfolding expr' 
 		info1 = info `setUnfoldingInfo` unfold_info
 		info2 = info1 `setInlinePragInfo` inline_prag
 	  in
@@ -119,7 +119,7 @@ tcWorkerInfo unf_env ty info worker_name
     let
 	-- Watch out! We can't pull on unf_env too eagerly!
 	info' = case explicitLookupValue unf_env worker_name of
-			Just worker_id -> info `setUnfoldingInfo`  mkTopUnfolding cpr_info (wrap_fn worker_id)
+			Just worker_id -> info `setUnfoldingInfo`  mkTopUnfolding (wrap_fn worker_id)
                                                `setWorkerInfo`     HasWorker worker_id arity
 
     			Nothing        -> pprTrace "tcWorkerInfo failed:" (ppr worker_name) info