Prepending gogol- to library names
commitc2ccbcbce1e98e4d8d53c03a6304606b67871a39
authorBrendan Hay <brendan.g.hay@gmail.com>
dateWed 30 Sep 2015, 11:47 (11 years ago)
parent0343069
gen/src/Gen/Types/Schema.hs+1−1
@@ -403,7 +403,7 @@ makeClassy ''Service
403403
404404instance FromJSON a => FromJSON (Service a) where
405405 parseJSON = withObject "service" $ \o -> Service
406− <$> o .: "library"
406+ <$> (o .: "library" <&> renameLibrary)
407407 <*> (o .: "canonicalName" <&> upperHead . renameAbbrev)
408408 <*> o .: "ownerName"
409409 <*> o .: "ownerDomain"