lookupBindGroupOcc: recommend names in the same namespace (#17593)
[ghc.git] / testsuite / tests / perf / should_run / T2902_Sum.hs
1
2 {-# LANGUAGE UnicodeSyntax, MultiParamTypeClasses #-}
3
4 module T2902_Sum (Sum(..)) where
5
6 class Sum c a b where
7 insert ∷ a → b → c a b → c a b
8 union ∷ c a b → c a b → c a b
9 unions ∷ [c a b] → c a b
10 extractMin ∷ c a b → ((a,b), c a b)
11
12 fromList ∷ [(a,b)] → c a b
13 toList ∷ c a b → [(a,b)]
14