From 0e74ae41dba09d31cfaa7e2bf8f156cf7f9cbdd0 Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Thu, 13 Jul 2023 23:43:10 -0400 Subject: [PATCH] FIX reversed account path --- lib/Internal/Database.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lib/Internal/Database.hs b/lib/Internal/Database.hs index 83fe253..50bbe03 100644 --- a/lib/Internal/Database.hs +++ b/lib/Internal/Database.hs @@ -417,8 +417,7 @@ paths2IDs = . L.sortOn fst . fmap (first pathList) where - pathList (AcntPath t []) = atName t :| [] - pathList (AcntPath t ns) = NE.reverse $ atName t :| ns + pathList (AcntPath t ns) = NE.reverse $ atName t :| reverse ns -- none of these errors should fire assuming that input is sorted and unique trimNames :: [NE.NonEmpty T.Text] -> [AcntID]