X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FcoreSyn%2FFreeVars.lhs;h=d532494cc5dbafade41aa02b616d3055ce1738f7;hb=647eb48674623156f7f5b699e4ecee9410ff585f;hp=5095994ddbab568f8069992d8cc06ec8545d76f8;hpb=ee67797fcd3b833c3b1a90a543e9520f36f9a6b9;p=ghc-hetmet.git

diff --git a/ghc/compiler/coreSyn/FreeVars.lhs b/ghc/compiler/coreSyn/FreeVars.lhs
index 5095994..d532494 100644
--- a/ghc/compiler/coreSyn/FreeVars.lhs
+++ b/ghc/compiler/coreSyn/FreeVars.lhs
@@ -28,13 +28,14 @@ import Id		( idType, getIdArity, isBottomingId,
 			  IdSet, Id
 			)
 import IdInfo		( ArityInfo(..) )
-import PrimOp		( PrimOp(..) )
+import PrimOp		( PrimOp(CCallOp) )
 import Type		( tyVarsOfType, Type )
 import TyVar		( emptyTyVarSet, unitTyVarSet, minusTyVarSet,
 			  intersectTyVarSets, unionManyTyVarSets,
 			  TyVarSet, TyVar
 			)
 import BasicTypes	( Unused )
+
 import UniqSet		( unionUniqSets, addOneToUniqSet, delOneFromUniqSet )
 import Util		( panic, assertPanic )
 
@@ -169,8 +170,8 @@ fvExpr id_cands tyvar_cands (Prim op args)
     (args_fvs, tfvs) = freeArgs id_cands tyvar_cands args_to_use{-NB-}
     args_to_use
       = case op of
-	  CCallOp _ _ _ _ res_ty -> TyArg res_ty : args
-	  _			 -> args
+	  CCallOp _ _ _ _ _ res_ty -> TyArg res_ty : args
+	  _			   -> args
 
 -- this Lam stuff could probably be improved by rewriting (WDP 96/03)
 
@@ -339,8 +340,8 @@ freeArgs icands tcands (arg:args)
 	case (freeArgs icands tcands args) of { (irest, trest) ->
 	(arg_fvs `combine` irest, tfvs `combine` trest) }
   where
-    free_arg (LitArg   _) = noFreeAnything
-    free_arg (TyArg   ty) = (noFreeIds, freeTy tcands ty)
+    free_arg (LitArg   _)   = noFreeAnything
+    free_arg (TyArg   ty)   = (noFreeIds, freeTy tcands ty)
     free_arg (VarArg   v)
       | v `is_among` icands = (aFreeId v, noFreeTyVars)
       | otherwise	    = noFreeAnything