X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypecheck%2FTcIfaceSig.lhs;fp=ghc%2Fcompiler%2Ftypecheck%2FTcIfaceSig.lhs;h=ebfd83f19558e0b0d3fc3f3b03d721ac32c03124;hb=d8af6b8ce9d241a8f8d6878e2400aa8577f552bc;hp=b55968692bd53fda5e0d5b7affa00e62456f6e7e;hpb=0a432d487ba39bd595cebd74456be4f0d635e82e;p=ghc-hetmet.git

diff --git a/ghc/compiler/typecheck/TcIfaceSig.lhs b/ghc/compiler/typecheck/TcIfaceSig.lhs
index b559686..ebfd83f 100644
--- a/ghc/compiler/typecheck/TcIfaceSig.lhs
+++ b/ghc/compiler/typecheck/TcIfaceSig.lhs
@@ -104,7 +104,7 @@ tcIdInfo unf_env in_scope_vars name ty info_ins
 	  returnTc info2
 
     tcPrag info (HsStrictness strict_info)
-	= returnTc (info `setNewStrictnessInfo` Just strict_info)
+	= returnTc (info `setAllStrictnessInfo` Just strict_info)
 
     tcPrag info (HsWorker nm arity)
 	= tcWorkerInfo unf_env ty info nm arity