Recursive pull

package.yaml

@@ -15,6 +15,9 @@ dependencies:
   - classy-prelude
   - text
   - path
+  - path-io
+  - process
+  - async
 
 default-extensions:
 - NoImplicitPrelude

src/Command.hs

+module Command where
+
+import ClassyPrelude
+import Path
+import System.Process
+import System.Exit
+
+pull :: Path Abs Dir -> IO Bool
+pull path = readCreateProcessWithExitCode ((proc "git" ["pull"]) {cwd = Just $ fromAbsDir path}) "" >>= \case
+    (ExitSuccess, _, _) -> return True
+    _ -> return False

src/main.hs

 import ClassyPrelude
+import Path.IO
+-- import Control.Concurrent.Async
+import Command
 
 main :: IO ()
-main = putStrLn "Hello World"
+main = do
+    current <- getCurrentDir
+    (dirs, _) <- listDir current
+    results <- mapConcurrently Command.pull dirs
+    putStrLn $ tshow results