diff options
author | Ben Gamari <ben@smart-cactus.org> | 2019-07-04 11:08:34 -0400 |
---|---|---|
committer | Ben Gamari <ben@well-typed.com> | 2019-07-18 20:55:11 -0400 |
commit | c7bcd017110b05af99e72b7bbcc232368f22dda7 (patch) | |
tree | abaedca283fe1c46c47baef2ce44f7764274c56b | |
parent | 272246bf137a30886f6bed676dc4edf9d0f493ba (diff) | |
download | haskell-c7bcd017110b05af99e72b7bbcc232368f22dda7.tar.gz |
Add HasDebugCallStack to unionLists
This should help identify a few cases where this is throwing warnings
-rw-r--r-- | compiler/utils/ListSetOps.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/utils/ListSetOps.hs b/compiler/utils/ListSetOps.hs index cad8cd9583..8078d5603e 100644 --- a/compiler/utils/ListSetOps.hs +++ b/compiler/utils/ListSetOps.hs @@ -53,7 +53,7 @@ deleteBys eq xs ys = foldl' (flip (deleteBy eq)) xs ys -- | Assumes that the arguments contain no duplicates -unionLists :: (Outputable a, Eq a) => [a] -> [a] -> [a] +unionLists :: (HasDebugCallStack, Outputable a, Eq a) => [a] -> [a] -> [a] -- We special case some reasonable common patterns. unionLists xs [] = xs unionLists [] ys = ys |