diff options
author | Ben Gamari <ben@smart-cactus.org> | 2019-07-04 15:08:34 (GMT) |
---|---|---|
committer | Ben Gamari <ben@well-typed.com> | 2019-07-19 00:55:11 (GMT) |
commit | c7bcd017110b05af99e72b7bbcc232368f22dda7 (patch) | |
tree | abaedca283fe1c46c47baef2ce44f7764274c56b | |
parent | 272246bf137a30886f6bed676dc4edf9d0f493ba (diff) | |
download | ghc-c7bcd017110b05af99e72b7bbcc232368f22dda7.zip ghc-c7bcd017110b05af99e72b7bbcc232368f22dda7.tar.gz ghc-c7bcd017110b05af99e72b7bbcc232368f22dda7.tar.bz2 |
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 cad8cd9..8078d56 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 |