@@ -64,6 +64,7 @@ initGit repo = do
64gitProcNoRepo :: [String] -> P.CreateProcess
64gitProcNoRepo :: [String] -> P.CreateProcess
65gitProcNoRepo = P.proc "git"
65gitProcNoRepo = P.proc "git"
67+-- TODO: GIT_TERMINAL_PROMPT=0
67gitProc :: FilePath -> [String] -> P.CreateProcess
68gitProc :: FilePath -> [String] -> P.CreateProcess
68gitProc repo = gitProcNoRepo . runGitInDir
69gitProc repo = gitProcNoRepo . runGitInDir
@@ -71,10 +72,10 @@ gitProc repo = gitProcNoRepo . runGitInDir
71 args@("clone":_) -> args <> [repo]
72 args@("clone":_) -> args <> [repo]
72 args -> ["-C", repo] <> args
73 args -> ["-C", repo] <> args
74−-- | Recursively copy a directory using `cp -a`
75+-- | Recursively copy a directory using `cp -a` -- TODO: Should use -rT instead of -a
75copyDir :: FilePath -> FilePath -> P.CreateProcess
76copyDir :: FilePath -> FilePath -> P.CreateProcess
76copyDir src dest =
77copyDir src dest =
77− (P.proc "cp" ["-a", ".", dest]) { P.cwd = Just src }
78+ (P.proc "cp" ["-a", ".", dest]) { P.cwd = Just src } -- TODO: This will break if dest is relative since we change cwd
79readGitProcess :: MonadObelisk m => FilePath -> [String] -> m Text
80readGitProcess :: MonadObelisk m => FilePath -> [String] -> m Text
80readGitProcess repo = readProcessAndLogOutput (Debug, Notice) . gitProc repo
81readGitProcess repo = readProcessAndLogOutput (Debug, Notice) . gitProc repo