From 0c7281ee4a7858b8288cd6c3d60da8b40cb2e698 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Thu, 16 Jul 2015 11:54:00 +0200
Subject: Wrapper around redo for $PATH reasons

---
 custom/redo.patch | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 custom/redo.patch

(limited to 'custom/redo.patch')

diff --git a/custom/redo.patch b/custom/redo.patch
new file mode 100644
index 00000000..cd3a678e
--- /dev/null
+++ b/custom/redo.patch
@@ -0,0 +1,18 @@
+diff --git a/redo.hs b/redo.hs
+index f0e816a..01c6a2e 100644
+--- a/redo.hs
++++ b/redo.hs
+@@ -48,7 +48,12 @@ redo target dir = do
+          createDirectoryIfMissing True metaDepsDir
+          writeMD5 target path
+          oldEnv <- getEnvironment
+-         let newEnv = toList $ adjust (++ ":.") "PATH" $ insert "REDO_TARGET" target $ fromList oldEnv
++         redoPath <- lookupEnv "REDO_PATH"
++         let
++           redoPath' = case redoPath of
++             Just p -> p
++             _ -> "."
++           newEnv = toList $ adjust (++ (':' : redoPath')) "PATH" $ insert "REDO_TARGET" target $ fromList oldEnv
+          (_, _, _, ph) <- createProcess $ (shell $ cmd path) {env = Just newEnv}
+          exit <- waitForProcess ph
+          case exit of
-- 
cgit v1.2.3