fixup! Improve delete performance

kowainik · Oct 4, 2020 · 2356887 · 2356887
1 parent dc40570
commit 2356887
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Data/TypeRepMap/Internal.hs b/src/Data/TypeRepMap/Internal.hs
@@ -210,7 +210,7 @@ delete :: forall a (f :: KindOf a -> Type) . Typeable a => TypeRepMap f -> TypeR
 delete m
   | not (member @a m) = m
   | size m == 1 = empty
-  | otherwise = fromSortedTriples . filter (\trip -> fst3 trip /= typeFp @a) . toSortedTriples $ m
+  | otherwise = fromSortedTriples . filter ((/= typeFp @a) . fst3) . toSortedTriples $ m
 {-# INLINE delete #-}
 
 {- |