ndwarshuis
/
pwncash
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

FIX reversed account path

This commit is contained in:
Nathan Dwarshuis 2023-07-13 23:43:10 -04:00
parent 4c46f035f5
commit 0e74ae41db
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/Internal/Database.hs
View File

@ -417,8 +417,7 @@ paths2IDs =
. L.sortOn fst . L.sortOn fst
. fmap (first pathList) . fmap (first pathList)
where where
pathList (AcntPath t []) = atName t :| [] pathList (AcntPath t ns) = NE.reverse $ atName t :| reverse ns
pathList (AcntPath t ns) = NE.reverse $ atName t :| ns
-- none of these errors should fire assuming that input is sorted and unique -- none of these errors should fire assuming that input is sorted and unique
trimNames :: [NE.NonEmpty T.Text] -> [AcntID] trimNames :: [NE.NonEmpty T.Text] -> [AcntID]