yesod-dsl-0.1.1.5: codegen/insert.cg

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