Add NamedThing (GenLocated l e) instance
authorBen Gamari <ben@smart-cactus.org>
Fri, 1 Jul 2016 10:23:27 +0000 (12:23 +0200)
committerBen Gamari <ben@smart-cactus.org>
Fri, 1 Jul 2016 12:11:16 +0000 (14:11 +0200)
compiler/basicTypes/Name.hs

index 24dc8aa..b0411b9 100644 (file)
@@ -630,6 +630,9 @@ class NamedThing a where
 
     getOccName n = nameOccName (getName n)      -- Default method
 
+instance NamedThing e => NamedThing (GenLocated l e) where
+    getName = getName . unLoc
+
 getSrcLoc           :: NamedThing a => a -> SrcLoc
 getSrcSpan          :: NamedThing a => a -> SrcSpan
 getOccString        :: NamedThing a => a -> String