yesod-dsl-0.2.1: codegen/lookup-class-instance.cg
~{className c}Instance~{entityName e}Id key -> runMaybeT $ do
val <- MaybeT $ get key
return $ ~{className c}Instance~{entityName e} $ Entity key val
~{className c}Instance~{entityName e}Id key -> runMaybeT $ do
val <- MaybeT $ get key
return $ ~{className c}Instance~{entityName e} $ Entity key val