{"body":"    forM fields $ \\(fieldName, _, _) -> do\n      let appLens = AppTypeE (VarE $ mkName \"field\") $ LitT $ StrTyLit (nameBase fieldName)\n      [e|($(stringE $ nameBase fieldName), $(varE fieldName) el & $(pure appLens) %~ fmap (pack . show))|]","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/F7Fdpwsf","modified":1612544815,"id":"F7Fdpwsf","size":241,"lines":3,"own_paste":false,"theme":"","date":1612544815}