diff options
Diffstat (limited to 'third_party/bazel/rules_haskell/tests/binary-with-plugin')
3 files changed, 71 insertions, 0 deletions
diff --git a/third_party/bazel/rules_haskell/tests/binary-with-plugin/BUILD.bazel b/third_party/bazel/rules_haskell/tests/binary-with-plugin/BUILD.bazel new file mode 100644 index 000000000000..f3a8e3f4d689 --- /dev/null +++ b/third_party/bazel/rules_haskell/tests/binary-with-plugin/BUILD.bazel @@ -0,0 +1,53 @@ +load( + "@io_tweag_rules_haskell//haskell:haskell.bzl", + "ghc_plugin", + "haskell_library", + "haskell_test", + "haskell_toolchain_library", +) + +package(default_testonly = 1) + +config_setting( + name = "debug_build", + values = { + "compilation_mode": "dbg", + }, +) + +haskell_toolchain_library(name = "base") + +haskell_toolchain_library(name = "ghc") + +haskell_toolchain_library(name = "process") + +haskell_library( + name = "plugin-lib", + srcs = ["Plugin.hs"], + deps = [ + ":base", + ":ghc", + ":process", + ], +) + +ghc_plugin( + name = "plugin", + args = ["$(location //tests/binary-simple)"], + module = "Plugin", + tools = ["//tests/binary-simple"], + deps = [":plugin-lib"], +) + +haskell_test( + name = "binary-with-plugin", + srcs = ["Main.hs"], + plugins = select({ + # XXX If profiling is enabled, ignore the plugin because of + # https://gitlab.haskell.org/ghc/ghc/issues/14335. + ":debug_build": [], + "//conditions:default": [":plugin"], + }), + visibility = ["//visibility:public"], + deps = [":base"], +) diff --git a/third_party/bazel/rules_haskell/tests/binary-with-plugin/Main.hs b/third_party/bazel/rules_haskell/tests/binary-with-plugin/Main.hs new file mode 100644 index 000000000000..2048dbdecd9a --- /dev/null +++ b/third_party/bazel/rules_haskell/tests/binary-with-plugin/Main.hs @@ -0,0 +1,3 @@ +module Main where + +main = putStrLn "hello world" diff --git a/third_party/bazel/rules_haskell/tests/binary-with-plugin/Plugin.hs b/third_party/bazel/rules_haskell/tests/binary-with-plugin/Plugin.hs new file mode 100644 index 000000000000..3827bb799215 --- /dev/null +++ b/third_party/bazel/rules_haskell/tests/binary-with-plugin/Plugin.hs @@ -0,0 +1,15 @@ +module Plugin (plugin) where + +import Control.Monad (when) +import GhcPlugins +import System.Process (readProcess) + +plugin :: Plugin +plugin = defaultPlugin { installCoreToDos = install } + +install :: [CommandLineOption] -> [CoreToDo] -> CoreM [CoreToDo] +install [arg] todo = do + when ('$' `elem` arg) $ + fail "Make variable not expanded." + _ <- liftIO $ readProcess arg [] "" + return todo |