diff options
Diffstat (limited to 'third_party/bazel/rules_haskell/tests/java_classpath/Main.hs')
-rw-r--r-- | third_party/bazel/rules_haskell/tests/java_classpath/Main.hs | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/third_party/bazel/rules_haskell/tests/java_classpath/Main.hs b/third_party/bazel/rules_haskell/tests/java_classpath/Main.hs deleted file mode 100644 index 13f7b9d51684..000000000000 --- a/third_party/bazel/rules_haskell/tests/java_classpath/Main.hs +++ /dev/null @@ -1,17 +0,0 @@ -{-# 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 - ) |