Remove 'confusing' as it kills performance for large types (I don't yet know why)
commit2a4fec2a62c09178d301381ceb6f08e8d49b3b10
authorCsongor Kiss <kiss.csongor.kiss@gmail.com>
dateTue 3 Apr 2018, 18:36 (9 years ago)
parent7c9cd73
src/Data/Generics/Product/Types.hs+1−1
@@ -50,7 +50,7 @@ class HasTypes a s where
5050instance
5151 ( Hastypes' (Interesting s a) a s
5252 ) => HasTypes a s where
53− types = confusing (types' @(Interesting s a))
53+ types = types' @(Interesting s a)
5454 {-# INLINE types #-}
5555
5656class Hastypes' (t :: Bool) a s where