[project @ 2001-07-20 15:22:21 by simonpj]

[ghc-hetmet.git] / ghc / compiler / typecheck / TcIfaceSig.lhs

diff --git a/ghc/compiler/typecheck/TcIfaceSig.lhs b/ghc/compiler/typecheck/TcIfaceSig.lhs
index ad444e5..8b255e4 100644 (file)
--- a/ghc/compiler/typecheck/TcIfaceSig.lhs
+++ b/ghc/compiler/typecheck/TcIfaceSig.lhs
@@ -90,7 +90,7 @@ tcIdInfo unf_env in_scope_vars name ty info_ins
     tcPrag info HsCprInfo       = returnTc (info `setCprInfo`   ReturnsCPR)
 
     tcPrag info (HsArity arity) = 
-       returnTc (info `setArityInfo` (ArityExactly arity)
+       returnTc (info `setArityInfo` arity
                       `setCgArity`   arity)
 
     tcPrag info (HsUnfold inline_prag expr)