TEMPORARILY disable extraction of sequence patterns (#31)

harisont · Apr 13, 2023 · 328b03c · 328b03c
1 parent 25178cf
commit 328b03c
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/src/Utils/UDPatterns.hs b/src/Utils/UDPatterns.hs
@@ -26,10 +26,12 @@ udTree2udPattern (RTree n []) = AND [
   -- no MISC cause I dunno what the second string is supposed to be:
   -- https://github.com/GrammaticalFramework/gf-ud/blob/f2705537347b417e37f1ccd156708bf066e790d6/UDPatterns.hs#L49
   ]
-udTree2udPattern (RTree n ts) = AND [
-  TREE (udTree2udPattern (RTree n [])) (map udTree2udPattern ts),
-  SEQUENCE $ map udTree2udPattern ns
-  ]
+udTree2udPattern (RTree n ts) = 
+  TREE (udTree2udPattern (RTree n [])) (map udTree2udPattern ts)
+  -- AND [
+  --   TREE (udTree2udPattern (RTree n [])) (map udTree2udPattern ts),
+  --   SEQUENCE $ map udTree2udPattern ns
+  -- ]
     where ns = sortBy (\n m -> compare (rootID n) (rootID m)) (RTree n []:ts)
 
 -- | Discard UD columns from an HST pattern, excepts those explicitly listed