diff options
-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 |