Tentative fix for azure CI

tweag · Jun 26, 2019 · 342be04 · 342be04
1 parent 2038ba1
commit 342be04
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/hazel/ghc_paths.bzl b/hazel/ghc_paths.bzl
@@ -5,13 +5,17 @@ def _ghc_paths_module_impl(ctx):
         inputs = [ghc],
         outputs = [ctx.outputs.out],
         command = """
+      {ghc} --print-libdir
+      {ghc} --print-libdir | sed 's:\\\\:/:g'
+
       cat > {out} << EOM
 module GHC.Paths (
         ghc, ghc_pkg, libdir, docdir
   ) where
 
 libdir, docdir, ghc, ghc_pkg :: FilePath
 
+poulet = "$({ghc} --print-libdir)"
 libdir  = "$({ghc} --print-libdir | sed 's:\\\\:/:g')"
 docdir  = "DOCDIR_IS_NOT_SET"
 

diff --git a/hazel/test/ghc-paths-test.hs b/hazel/test/ghc-paths-test.hs
@@ -1,15 +1,15 @@
 module Main where
 
 import Control.Monad (when)
-import GHC.Paths (ghc, ghc_pkg, libdir, docdir)
+import GHC.Paths (ghc, ghc_pkg, libdir, docdir, poulet)
 import System.Exit (exitFailure)
 import System.IO (hPutStrLn, stderr)
 
 main :: IO ()
 main = do
   let require name value =
         when (null value) $ do
-          hPutStrLn stderr (name ++ " should not be empty")
+          hPutStrLn stderr (name ++ " should not be empty" ++ poulet)
           exitFailure
   require "ghc" ghc
   require "ghc_pkg" ghc_pkg