Update the isStartCat function to handle new AbsTreeInfo

GrammaticalFramework · Mar 25, 2022 · 13c04bd · 13c04bd
1 parent 42756d9
commit 13c04bd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/UD2GF.hs b/UD2GF.hs
@@ -293,7 +293,7 @@ splitDevTree env tr@(RTree dn trs) =
     False -> head $ splitDevTree env $ RTree (d{devNeedBackup = True}) ts ---- head
 
   isStartCat :: AbsTreeInfo -> Bool
-  isStartCat (rt, (ci, uis)) = startCategory env /= mkType [] ci []
+  isStartCat AbsTreeInfo { atiAbsTree = rt, atiCat = ci, atiUDIds = uis} = startCategory env /= mkType [] ci []
 
 prtStatus udids =  "[" ++ concat (intersperse "," (map prt udids)) ++ "]"