haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-04-06 16:29:05 +02:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

etc/diskspace: better error when no directory

Browse Source 
[skip ci]
This commit is contained in:
Jens Petersen 2023-09-12 20:47:29 +08:00
parent 87b1e78af1
commit db4ca5274a
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 $ "more than one directory 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 $ "more than one directory found in " ++ cwd ++ ": " ++ unwords ls error $ show (length ls) ++ "directories found in " ++ cwd ++ ": " ++ unwords ls