yesod-dsl-0.1: codegen/replace.cg

       vErrors <- lift $ validate e~{show pId}
       case vErrors of
            xs@(_:_) -> sendResponseStatus status400 (A.object [ 
                        "message" .= ("Entity validation failed" :: Text),
                        "errors" .= toJSON xs 
                    ])
            _ -> P.repsert ~{inputFieldRef ctx fr} (e~{show pId} :: ~{en})