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
. 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]