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]