Add ToJSON Language

phadej · phadej · commit 11e8fc367eb8 · 2016-01-25T08:24:16.000+02:00
diff --git a/src/GitHub/Data/Repos.hs b/src/GitHub/Data/Repos.hs
@@ -250,6 +250,9 @@ instance FromJSON Contributor where
 instance FromJSON Language where
     parseJSON = withText "Language" (pure . Language)
 
+instance ToJSON Language where
+    toJSON = toJSON . getLanguage
+
 instance FromJSON a => FromJSON (HM.HashMap Language a) where
     parseJSON = fmap mapKeyLanguage . parseJSON
       where
