Make item display universal

2022-06-19 12:56:30 +01:00
parent df1f3ad6b0
commit 541a04f1bc
22 changed files with 349 additions and 358 deletions
@@ -126,4 +126,4 @@ numMetaTree' (MTree lab mn bs) = do
    return $ MTree (is,lab) (mn & nodeMetaTree %~ (\nmt -> evalState (numMetaTree' nmt) (0:is))) bs'

 showIntsString :: ([Int],String) -> String
-showIntsString (is,s) = foldr1 (++) (intersperse ":" (map show is)) ++ ':':s
+showIntsString (is,s) = foldr1 (++) (intersperse ":" (map show $ reverse is)) ++ ':':s