Missing inline pragma - 8.0 1 failing
commit770b6407fce81a7460b724a2f2b8e386434c872b
authorMatthew Pickering <matthewtpickering@gmail.com>
dateWed 24 Jan 2018, 11:55 (9 years ago)
parent669770b
src/Data/Generics/Sum/Internal/Constructors.hs+1−2
@@ -53,9 +53,8 @@ instance
5353 , ListTuple b bs
5454 ) => GAsConstructor ctor (M1 C ('MetaCons ctor fixity fields) f) (M1 C ('MetaCons ctor fixity fields) g) a b where
5555
56−-- _GCtor = prismP (M1 . gfromCollection . tupleToList) (Right . listToTuple . gtoCollection . unM1)
57−-- {-# INLINE _GCtor #-}
5856 _GCtor = prism (M1 . view (fromIso (glist @Type)) . tupleToList) (Right . listToTuple . view (glist @Type) . unM1)
57+ {-# INLINE _GCtor #-}
5958
6059
6160instance GSumAsConstructor ctor (HasCtorP ctor l) l r l' r' a b => GAsConstructor ctor (l :+: r) (l' :+: r') a b where