Merge pull request #2202 from kernelim/list-installed

listInstalled: move side-effects away

src/Stack/Setup.hs

@@ -636,6 +636,7 @@ downloadAndInstallTool :: (MonadIO m, MonadMask m, MonadLogger m, MonadReader en
                        -> (SetupInfo -> Path Abs File -> ArchiveType -> Path Abs Dir -> m ())
                        -> m Tool
 downloadAndInstallTool programsDir si downloadInfo tool installer = do
+    ensureDir programsDir
     (file, at) <- downloadFromInfo programsDir downloadInfo tool
     dir <- installDir programsDir tool
     unmarkInstalled programsDir tool
@@ -749,6 +750,7 @@ downloadFromInfo programsDir downloadInfo tool = do
             _ -> error $ "Unknown extension for url: " ++ T.unpack url
     relfile <- parseRelFile $ toolString tool ++ extension
     let path = programsDir </> relfile
+    ensureDir programsDir
     chattyDownload (T.pack (toolString tool)) downloadInfo path
     return (path, at)
   where
@@ -1168,6 +1170,7 @@ setup7z :: (MonadReader env m, HasHttpManager env, HasConfig env, MonadThrow m,
         -> m (Path Abs Dir -> Path Abs File -> n ())
 setup7z si = do
     dir <- asks $ configLocalPrograms . getConfig
+    ensureDir dir
     let exe = dir </> $(mkRelFile "7z.exe")
         dll = dir </> $(mkRelFile "7z.dll")
     case (siSevenzDll si, siSevenzExe si) of

src/Stack/Setup/Installed.hs

@@ -3,6 +3,8 @@
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE ViewPatterns #-}
+{-# LANGUAGE LambdaCase #-}
+
 module Stack.Setup.Installed
     ( getCompilerVersion
     , markInstalled
@@ -78,9 +80,10 @@ listInstalled :: (MonadIO m, MonadThrow m)
               => Path Abs Dir
               -> m [Tool]
 listInstalled programsPath = do
-    ensureDir programsPath
-    (_, files) <- listDir programsPath
-    return $ mapMaybe toTool files
+    doesDirExist programsPath >>= \case
+        False -> return []
+        True -> do (_, files) <- listDir programsPath
+                   return $ mapMaybe toTool files
   where
     toTool fp = do
         x <- T.stripSuffix ".installed" $ T.pack $ toFilePath $ filename fp