From f723b8b878a3c4a4687b9e337a875500bebb39b1 Mon Sep 17 00:00:00 2001 From: Vincent Ambo Date: Thu, 4 Jul 2019 11:18:12 +0100 Subject: feat(third_party/bazel): Check in rules_haskell from Tweag --- .../bazel/rules_haskell/tests/java_classpath/Main.hs | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 third_party/bazel/rules_haskell/tests/java_classpath/Main.hs (limited to 'third_party/bazel/rules_haskell/tests/java_classpath/Main.hs') diff --git a/third_party/bazel/rules_haskell/tests/java_classpath/Main.hs b/third_party/bazel/rules_haskell/tests/java_classpath/Main.hs new file mode 100644 index 0000000000..13f7b9d516 --- /dev/null +++ b/third_party/bazel/rules_haskell/tests/java_classpath/Main.hs @@ -0,0 +1,17 @@ +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE TemplateHaskell #-} +module Main (main) where + +import qualified Language.Haskell.TH as TH (runIO) +import qualified Language.Haskell.TH.Syntax as TH (lift) +import System.Environment (lookupEnv) + +main :: IO () +main = putStrLn $( + let ensureClassPath :: IO String + ensureClassPath = lookupEnv "CLASSPATH" >>= \case + Nothing -> error "CLASSPATH not set when it was expected to be." + Just "" -> error "CLASSPATH empty when it was expected to have content." + Just cpath -> pure $ "java-classpath at compile time: " ++ cpath + in TH.runIO ensureClassPath >>= TH.lift + ) -- cgit 1.4.1