about summary refs log tree commit diff
path: root/third_party/bazel/rules_haskell/tests/java_classpath/Main.hs
diff options
context:
space:
mode:
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.hs17
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
-  )