diff options
| -rw-r--r-- | compiler/typecheck/TcInteract.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/typecheck/TcInteract.lhs b/compiler/typecheck/TcInteract.lhs index 4c450f7557..983df3c503 100644 --- a/compiler/typecheck/TcInteract.lhs +++ b/compiler/typecheck/TcInteract.lhs @@ -111,7 +111,7 @@ updCCanMap (a,ct) cmap Given {} -> cmap { cts_given = insert_into (cts_given cmap) } Derived {} -> cmap { cts_derived = insert_into (cts_derived cmap) } where - insert_into m = addToUFM_C unionBags m a (singleCCan ct) + insert_into m = addToUFM_C (flip unionBags) m a (singleCCan ct) getRelevantCts :: Uniquable a => a -> CCanMap a -> (CanonicalCts, CCanMap a) -- Gets the relevant constraints and returns the rest of the CCanMap |