Remove redundant pattern match
commitb8d6f40b142af0e08b07cb4e934adab756de4b39
authorCsongor Kiss <kiss.csongor.kiss@gmail.com>
dateTue 1 Aug 2017, 17:47 (9 years ago)
parent6cee2a9
src/Data/Generics/Product/Subtype.hs+1−1
@@ -155,7 +155,7 @@ class GSmashLeaf sub sup (w :: Bool) where
155155instance
156156 GHasField field sup t
157157 => GSmashLeaf (S1 ('MetaSel ('Just field) p f b) (Rec0 t)) sup 'True where
158− gsmashLeaf sup (M1 (K1 _)) = M1 (K1 (sup ^. gfield @field))
158+ gsmashLeaf sup _ = M1 (K1 (sup ^. gfield @field))
159159
160160instance GSmashLeaf (S1 ('MetaSel ('Just field) p f b) (Rec0 t)) sup 'False where
161161 gsmashLeaf _ = id