summaryrefslogtreecommitdiff
path: root/app/hp2ps.hs
diff options
context:
space:
mode:
Diffstat (limited to 'app/hp2ps.hs')
-rw-r--r--app/hp2ps.hs16
1 files changed, 16 insertions, 0 deletions
diff --git a/app/hp2ps.hs b/app/hp2ps.hs
new file mode 100644
index 0000000..ff06400
--- /dev/null
+++ b/app/hp2ps.hs
@@ -0,0 +1,16 @@
+module Main where
+
+import StackWrapper
+
+import qualified GhcLib as G
+
+import System.Environment
+import System.FilePath
+import System.Process
+
+main :: IO ()
+main =
+ run $ G.run "hp2ps" $ do
+ args <- getArgs
+ binDir <- head . lines <$> readProcess "stack" ["path", "--compiler-bin"] ""
+ callProcess (binDir </> "hp2ps") args