-data Field = Field { getMap :: FieldMap, whatsAheadFunc :: Person -> FieldContext Person, whatsAtFunc :: Position -> FieldContext Cell}
+data Field = Field { getMap :: FieldMap
+ , whatsAheadFunc :: Person -> FieldContext Person
+ -- , whatsAtFunc :: Position -> FieldContext Cell
+ }