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