@@ -278,8 +278,8 @@ diffFields fields1 fields2 =
278278
279279
280280data ExpandedRecord = ExpandedRecord
281− { fields :: Map.Map String [Variable]
282− , extension :: Extension
281+ { _fields :: Map.Map String [Variable]
282+ , _extension :: Extension
283283 }
284284
285285data Extension = Empty Variable | Extension Variable