From ac8a472e6db8c35b96fd9fdfeea7b42c9afb01ec Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andreas=20K=C3=A4llberg?= <anka.213@gmail.com>
Date: Tue, 19 Oct 2021 13:17:28 +0800
Subject: [PATCH] Update the isStartCat function to handle new AbsTreeInfo

---
 UD2GF.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/UD2GF.hs b/UD2GF.hs
index c26f2a2..7b2cb4c 100644
--- a/UD2GF.hs
+++ b/UD2GF.hs
@@ -292,7 +292,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)) ++ "]"