@@ -278,7 +278,7 @@ forceArgs ctxt ty = forceFrom 0 ty
278278 -- definitely wants, which is particularly the case with 'views'.
279279 -- So perhaps we need a way of marking that in the source?)
280280 | (P _ ty _, args) <- unApply sc
281− = null (concatMap (findNonForcePos True) args)
281+ = nub (concatMap findForcePos args)
282282 forceFrom i sc = []
283283
284284 findForcePos (P _ (MN i ff) _)