@@ -278,8 +278,8 @@ diffFields fields1 fields2 =
280data ExpandedRecord = ExpandedRecord
280data ExpandedRecord = ExpandedRecord
281− { fields :: Map.Map String [Variable]
281+ { _fields :: Map.Map String [Variable]
282− , extension :: Extension
282+ , _extension :: Extension
285data Extension = Empty Variable | Extension Variable
285data Extension = Empty Variable | Extension Variable