Fix test

2 files changed, 2 insertions, 1 deletions

diff --git a/CabalHelper/Main.hs b/CabalHelper/Main.hs
index c0443e8..0177cf5 100644
--- a/CabalHelper/Main.hs
+++ b/CabalHelper/Main.hs
@@ -159,6 +159,7 @@ main = do
   print =<< flip mapM cmds $$ \cmd -> do
   case cmd of
     "write-autogen-files":[] -> do
+      -- can't use @projdir@ here
       let pd = localPkgDescr lbi
        -- calls writeAutogenFiles
       initialBuildSteps distdir pd lbi v
diff --git a/Distribution/Helper.hs b/Distribution/Helper.hs
index 05f5b3c..956f714 100644
--- a/Distribution/Helper.hs
+++ b/Distribution/Helper.hs
@@ -243,7 +243,7 @@ writeAutogenFiles :: MonadIO m
                   -> m ()
 writeAutogenFiles distdir = liftIO $ do
   exe  <- findLibexecExe "cabal-helper-wrapper"
-  void $ readProcess exe [distdir, "write-autogen-files"] ""
+  void $ readProcess exe ["/nowhere/../..", distdir, "write-autogen-files"] ""
 
 -- | Get the path to the sandbox package-db in a project
 getSandboxPkgDb :: FilePath