@@ -197,7 +197,7 @@ findUnusedArgs names = do
197 = let directuse = args!!j `elem` usedns
197 = let directuse = args!!j `elem` usedns
198 garg = getFargpos calls (args!!j, j)
198 garg = getFargpos calls (args!!j, j)
199 recused = map getUsed garg
199 recused = map getUsed garg
200− in directuse || null recused || or recused
200+ in directuse || or recused
201 -- used on any route from here, or not used recursively
201 -- used on any route from here, or not used recursively
203 | otherwise = True
203 | otherwise = True