--- a/tests/test-pandoc-citeproc.hs
+++ b/tests/test-pandoc-citeproc.hs
@@ -63,7 +63,7 @@
 
   (ec, jsonOut, errout) <- pipeProcess
                      (Just [("LANG","en_US.UTF-8"),("HOME",".")])
-                     "dist/build/pandoc-citeproc/pandoc-citeproc"
+                     "dist-ghc/build/pandoc-citeproc/pandoc-citeproc"
                      [] jsonIn
   if ec == ExitSuccess
      then do
@@ -104,7 +104,7 @@
   let expected = BL.unlines yamllines
   (ec, result, errout) <- pipeProcess
                      (Just [("LANG","en_US.UTF-8"),("HOME",".")])
-                     "dist/build/pandoc-citeproc/pandoc-citeproc"
+                     "dist-ghc/build/pandoc-citeproc/pandoc-citeproc"
                      ["--bib2yaml", "-f", drop 1 $ takeExtension fp] bib
   if ec == ExitSuccess
      then do
