From e6ff6a7f5615294aa90b7f3ae6a2a8111a8e1540 Mon Sep 17 00:00:00 2001 From: Daniel Gröber Date: Wed, 12 Aug 2015 06:58:32 +0200 Subject: Fix tests --- Distribution/Helper.hs | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'Distribution') diff --git a/Distribution/Helper.hs b/Distribution/Helper.hs index da07510..3544d2e 100644 --- a/Distribution/Helper.hs +++ b/Distribution/Helper.hs @@ -265,11 +265,15 @@ getSomeConfigState = ask >>= \(QueryEnv readProc progs projdir distdir) -> do -- in the usual place. writeAutogenFiles :: MonadIO m => (FilePath -> [String] -> String -> IO String) - -> FilePath -- ^ Path to the @dist/@ directory + -> FilePath + -- ^ Path to project directory, i.e. the one containing the + -- @project.cabal@ file + -> FilePath + -- ^ Path to the @dist/@ directory -> m () -writeAutogenFiles readProc distdir = liftIO $ do +writeAutogenFiles readProc projdir distdir = liftIO $ do exe <- findLibexecExe "cabal-helper-wrapper" - void $ readProc exe ["/nowhere/../..", distdir, "write-autogen-files"] "" + void $ readProc exe [projdir, distdir, "write-autogen-files"] "" -- | Get the path to the sandbox package-db in a project getSandboxPkgDb :: (FilePath -> [String] -> String -> IO String) -- cgit v1.2.3