fixup! etc/diskspace: better error when no directory

jship · Sep 12, 2023 · fc12852 · fc12852
1 parent db4ca52
commit fc12852
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/etc/diskspace/remove-old-stack-work-libs.hs b/etc/diskspace/remove-old-stack-work-libs.hs
@@ -111,7 +111,7 @@ withOneDirectory_ act = do
     [l] -> withCurrentDirectory l act
     _ -> do
       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 act = do
@@ -120,4 +120,4 @@ withOneDirectory act = do
     [l] -> withCurrentDirectory l $ act l
     _ -> do
       cwd <- getCurrentDirectory
-      error $ show (length ls) ++ "directories found in " ++ cwd ++ ": " ++ unwords ls
+      error $ show (length ls) ++ " directories found in " ++ cwd ++ ": " ++ unwords ls