yesod-dsl-0.2.0: codegen/entity-class-instance-field-class-expr-from-string.cg

~{lowerFirst $ entityName e}~{upperFirst fn}ExprFromString "~{fieldEntityName f}" e op vt = case vt of 
    Just vt' -> PP.fromPathPiece vt' >>= \v -> Just $ defaultFilterOp False op (e ^. ~{entityName e}~{upperFirst $ fieldName f}) (val v)
    Nothing -> Just $ defaultFilterOp False op (e ^. ~{entityName e}~{upperFirst $ fieldName f}) nothing