sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-27 18:34:52 +09:00
Code Issues Activity

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

Browse source
This commit is contained in:
fr33domlover 2020-05-14 12:33:51 +00:00
parent 2063c7313b
commit 77e576ccb2
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Vervis/Application.hs
View file

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