on master help sign in
Fix optimisation on 8.0.2
commit7c9cd738cc0d36ab33e70905dbfd1ec63a6be696 authorCsongor Kiss <kiss.csongor.kiss@gmail.com> dateTue 3 Apr 2018, 15:02 (9 years ago) parent218704e
1 file changed−2
src/Data/Generics/Product/Fields.hs−2
src/Data/Generics/Product/Fields.hs−2
@@ -132,7 +132,6 @@ instance
132132 , GHasKey' field (Rep s) a
133133 ) => HasField' field s a where
134134 field' f s = VL.ravel (repLens . gkey @field) f s
135− {-# INLINE field' #-}
136135
137136instance -- see Note [Changing type parameters]
138137 ( Generic s
@@ -155,7 +154,6 @@ instance -- see Note [Changing type parameters]
155154 , s ~ Infer t b' a
156155 ) => HasField field s t a b where
157156 field f s = VL.ravel (repLens . gkey @field) f s
158− {-# INLINE field #-}
159157
160158-- -- See Note [Uncluttering type signatures]
161159instance {-# OVERLAPPING #-} HasField f (Void1 a) (Void1 b) a b where