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

etc/diskspace: include dir in error when more than one subdir

Browse Source 
[skip ci]
This commit is contained in:
Jens Petersen 2023-06-18 00:35:33 +02:00
parent e9b705d346
commit c322900508
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -98,10 +98,14 @@ withOneDirectory_ act = do
ls <- listDirectory "." ls <- listDirectory "."
case ls of case ls of
[l] -> withCurrentDirectory l act [l] -> withCurrentDirectory l act
_ -> error $ "more than one directory found: " ++ unwords ls _ -> do
cwd <- getCurrentDirectory
error $ "more than one directory found in " ++ cwd ++ ": " ++ unwords ls
withOneDirectory act = do withOneDirectory act = do
ls <- listDirectory "." ls <- listDirectory "."
case ls of case ls of
[l] -> withCurrentDirectory l $ act l [l] -> withCurrentDirectory l $ act l
_ -> error $ "more than one directory found: " ++ unwords ls _ -> do
cwd <- getCurrentDirectory
error $ "more than one directory found in " ++ cwd ++ ": " ++ unwords ls