aboutsummaryrefslogtreecommitdiff
path: root/Interact.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Interact.hs')
-rw-r--r--Interact.hs34
1 files changed, 0 insertions, 34 deletions
diff --git a/Interact.hs b/Interact.hs
deleted file mode 100644
index 4d24904c5..000000000
--- a/Interact.hs
+++ /dev/null
@@ -1,34 +0,0 @@
--- Get an interactive shell with the right packages to load
--- pandoc modules.
-
--- To use:
--- runghc Interact.hs
--- then,
--- :l Text/Pandoc.hs
--- (or whichever package you like)
-
--- You must have first done a 'cabal configure' or 'cabal install'
-
--- Note: Interact.hs doesn't work with Cabal >= 1.18. I recommend
--- using cabal sandboxes and the new 'cabal repl' command if you are
--- using a recent version.
-
-import System.Process
-import Distribution.Simple.LocalBuildInfo
-import Distribution.Package
-import Distribution.Version
-import Data.List (intercalate)
-
-main = do
- setupConfig' <- readFile "dist/setup-config"
- let setupConfig = read $ unlines $ drop 1 $ lines setupConfig'
- let (Just (ComponentLocalBuildInfo { componentPackageDeps = deps })) = libraryConfig setupConfig
- let packageSpecs = map (toPackageSpec . snd) deps
- let args = ["-optP-include", "-optP../dist/build/autogen/cabal_macros.h","-cpp","-I../dist/build/autogen","-i../dist/build/autogen"] ++ concatMap (\p -> ["-package",p]) packageSpecs
- print args
- ph <- runProcess "ghci" args (Just "src") Nothing Nothing Nothing Nothing
- waitForProcess ph
-
-toPackageSpec pkg = pkgN ++ "-" ++ pkgV
- where (PackageName pkgN) = pkgName pkg
- pkgV = intercalate "." $ map show $ versionBranch $ pkgVersion pkg