Gratuitously point-free JSON encoding

gistfile1.hs

data Dog = Dog { name  :: Text
               , age   :: Int
               , likes :: Text
               } deriving Show

instance ToJSON Dog where
  toJSON = asObject [ name  `as` "name"
                    , age   `as` "age"
                    , likes `as` "likes"
                    ]

as :: ToJSON b => (a -> b) -> Text -> a -> Pair
as getter = (. getter) . (.=)

asObject :: [a -> Pair] -> a -> Value
asObject = (object .) . sequence