yesod-dsl-0.2.1: codegen/purescript-decodejson-extract.cg

~{fieldName f}_ <- x .?  "~{fieldJsonName f}"