pingu/hcdu
pingu/hcdu
1
1
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Reverse sort

Browse Source
This commit is contained in:
pingu 2023-10-14 13:49:13 +02:00
parent 966744f709
commit 7fb6e1f833
1 changed files with 14 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
app/Main.hs
View File

@ -2,13 +2,17 @@ module Main where
import System.Posix.Directory ( getWorkingDirectory ) import System.Posix.Directory ( getWorkingDirectory )
import System.Directory import System.Directory
( pathIsSymbolicLink, doesFileExist, getFileSize, doesDirectoryExist ) ( pathIsSymbolicLink
, doesFileExist
, getFileSize
, doesDirectoryExist )
import Data.Functor ( (<&>) ) import Data.Functor ( (<&>) )
import Control.Monad ( filterM ) import Control.Monad ( filterM )
import System.Directory.Extra ( listContents ) import System.Directory.Extra ( listContents )
import Brick import Brick
import Graphics.Vty import Graphics.Vty
import Data.List.Extra import Data.List.Extra
import qualified Data.Ord
listNonSymFiles :: FilePath -> IO [FilePath] listNonSymFiles :: FilePath -> IO [FilePath]
listNonSymFiles dir = filterM (fmap not . pathIsSymbolicLink) =<< filterM doesFileExist =<< listContents dir listNonSymFiles dir = filterM (fmap not . pathIsSymbolicLink) =<< filterM doesFileExist =<< listContents dir
@ -21,7 +25,7 @@ getSizeSubpaths x = do
sub <- listNonSymDirectories x sub <- listNonSymDirectories x
subby <- mapM (\y -> (y,) . sum . map snd <$> getSizeSubpaths y) sub subby <- mapM (\y -> (y,) . sum . map snd <$> getSizeSubpaths y) sub
local <- listNonSymFiles x >>= (\y -> mapM getFileSize y <&> zip y) local <- listNonSymFiles x >>= (\y -> mapM getFileSize y <&> zip y)
pure $ local ++ subby pure $ sortOn (Data.Ord.Down . snd) $ local ++ subby
data AppS = AppS data AppS = AppS
{ {