-- type FieldPat = ...
fieldPatIdKey :: Unique
fieldPatIdKey       = mkPreludeMiscIdUnique 260
fieldPatIdKey :: Unique
fieldPatIdKey       = mkPreludeMiscIdUnique 260
fieldPatIdKey       = mkPreludeMiscIdUnique 260