Sync test data

Author: simonmar

glean/lang/codemarkup/tests/haskell/code/A.hs

@@ -39,5 +39,4 @@ zero = 0
 
 f :: R a -> T a
 f R{f2 = [x]} = C3 x
-f r | m (3::Int) = C2 (ord (f1 r))
-
+f r | m (3::Int) = C2 (ord (f1 r { f1 = 'a' }))

glean/lang/codemarkup/tests/haskell/code/B.hs

@@ -0,0 +1,22 @@
+{-
+  Copyright (c) Meta Platforms, Inc. and affiliates.
+  All rights reserved.
+
+  This source code is licensed under the BSD-style license found in the
+  LICENSE file in the root directory of this source tree.
+-}
+
+
+module B
+  ( b
+  , r
+  ) where
+
+import A
+import Data.Char(ord)
+
+b :: [Int]
+b = reverse $ map ord a
+
+r :: R Char
+r = A.R { f1 = 'a', f2 = "abc" }

glean/lang/codemarkup/tests/haskell/code/entity_location.out

@@ -275,7 +275,7 @@
       },
       "location": {
         "file": { "key": "glean/lang/codemarkup/tests/haskell/code/A.hs" },
-        "location": { "span": { "length": 55, "start": 562 } },
+        "location": { "span": { "length": 68, "start": 562 } },
         "name": "f"
       }
     }
@@ -439,5 +439,45 @@
         "name": "zero"
       }
     }
+  },
+  {
+    "key": {
+      "entity": {
+        "hs": {
+          "key": {
+            "mod": {
+              "key": { "name": { "key": "B" }, "unit": { "key": "main" } }
+            },
+            "occ": { "key": { "name": "b", "namespace_": 0 } },
+            "sort": { "external": { } }
+          }
+        }
+      },
+      "location": {
+        "file": { "key": "glean/lang/codemarkup/tests/haskell/code/B.hs" },
+        "location": { "span": { "length": 23, "start": 290 } },
+        "name": "b"
+      }
+    }
+  },
+  {
+    "key": {
+      "entity": {
+        "hs": {
+          "key": {
+            "mod": {
+              "key": { "name": { "key": "B" }, "unit": { "key": "main" } }
+            },
+            "occ": { "key": { "name": "r", "namespace_": 0 } },
+            "sort": { "external": { } }
+          }
+        }
+      },
+      "location": {
+        "file": { "key": "glean/lang/codemarkup/tests/haskell/code/B.hs" },
+        "location": { "span": { "length": 32, "start": 327 } },
+        "name": "r"
+      }
+    }
   }
 ]