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

ʘ‿ʘ

Browse Source
This commit is contained in:
pingu 2023-10-16 16:14:18 +02:00
parent 82fe300c87
commit 934145980b
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
app/Main.hs
View File

@ -93,7 +93,12 @@ pathWidget (f, s) = str (show f) <+> padLeft Max (str (show s))
sizeDir :: AppS -> IO AppS sizeDir :: AppS -> IO AppS
sizeDir s = do sizeDir s = do
subFiles <- getSizeSubpaths $ _appCWD s subFiles <- getSizeSubpaths $ _appCWD s
pure $ s {_appSubFiles = subFiles} pure $
s {
_appCursor = 0
, _appFocus = map fst subFiles !? 0
, _appSubFiles = subFiles
}
changeDir :: AppS -> IO AppS changeDir :: AppS -> IO AppS
changeDir so changeDir so