-- type FieldPat = ...
fieldPatName :: Name
fieldPatName = libFun (fsLit "fieldPat") fieldPatIdKey
fieldPatName :: Name
fieldPatName = libFun (fsLit "fieldPat") fieldPatIdKey
fieldPatName = libFun (fsLit "fieldPat") fieldPatIdKey