FIX reversed account path
This commit is contained in:
parent
4c46f035f5
commit
0e74ae41db
|
@ -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]
|
||||||
|
|
Loading…
Reference in New Issue