yesod-dsl-0.1.1.23: codegen/select-existing.cg

        es <- select $ from $ \o -> do
            where_ (o ^. ~{entityName e}Id ==. (val ~{ifr}))
            limit 1
            return o
        e <- case es of
            [(Entity _ e')] -> return e'    
            _ -> sendResponseStatus status404 $ A.object [ 
                    "message" .= ("Could not update a non-existing ~{entityName e}" :: Text)
                ]