haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-01-11 23:08:30 +01:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

fixup! etc/diskspace: better error when no directory

Browse Source
This commit is contained in:
Jens Petersen 2023-09-12 20:48:55 +08:00
parent db4ca5274a
commit fc12852829
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
etc/diskspace/remove-old-stack-work-libs.hs
View File

@ -111,7 +111,7 @@ withOneDirectory_ act = do
[l] -> withCurrentDirectory l act [l] -> withCurrentDirectory l act
_ -> do _ -> do
cwd <- getCurrentDirectory cwd <- getCurrentDirectory
error $ show (length ls) ++ "directories found in " ++ cwd ++ ": " ++ unwords ls error $ show (length ls) ++ " directories found in " ++ cwd ++ ": " ++ unwords ls
withOneDirectory :: (FilePath -> IO a) -> IO a withOneDirectory :: (FilePath -> IO a) -> IO a
withOneDirectory act = do withOneDirectory act = do
@ -120,4 +120,4 @@ withOneDirectory act = do
[l] -> withCurrentDirectory l $ act l [l] -> withCurrentDirectory l $ act l
_ -> do _ -> do
cwd <- getCurrentDirectory cwd <- getCurrentDirectory
error $ show (length ls) ++ "directories found in " ++ cwd ++ ": " ++ unwords ls error $ show (length ls) ++ " directories found in " ++ cwd ++ ": " ++ unwords ls