class ~{entityName e}~{upperFirst fn}Field e where
    ~{lowerFirst $ entityName e}~{upperFirst fn}Field :: SqlExpr (Database.Esqueleto.Value (Maybe (Key e))) -> EntityField ~{entityName e} (Maybe (Key e)) 

~{concatMap fieldInstance fs}