Startup: Sort the repo-tree-from-filesystem, it's not sorted by default

src/Vervis/Application.hs

@@ -40,6 +40,7 @@ import Data.Bifunctor
 import Data.Default.Class
 import Data.Foldable
 import Data.Git.Repository (isRepo)
+import Data.List
 import Data.List.NonEmpty (nonEmpty)
 import Data.Maybe
 import Data.Proxy
@@ -245,11 +246,11 @@ makeFoundation appSettings = do
                     shr ++ " / " ++ rp ++ " [" ++ show vcs ++ "]"
     repoTreeFromDir = do
         dir <- askRepoRootDir
-        outers <- liftIO $ listDirectory dir
+        outers <- liftIO $ sort <$> listDirectory dir
         repos <- for outers $ \ outer -> do
             let path = dir </> outer
             checkDir path
-            inners <- liftIO $ listDirectory path
+            inners <- liftIO $ sort <$> listDirectory path
             inners' <- for inners $ \ inner -> do
                 checkDir $ path </> inner
                 vcs <- do