From b950503fd82e9cc114e10860c234eb4b10d1ce27 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 22 Dec 2010 21:06:23 -0800
Subject: Added Interact.hs to make it easier to use ghci while developing.

Interact.hs loads ghci from the src directory, specifying
all the options needed to load pandoc modules (including
specific package dependencies, which it gets by parsing
dist/setup-config).
---
 Interact.hs | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 Interact.hs

diff --git a/Interact.hs b/Interact.hs
new file mode 100644
index 000000000..8fa7b5b3b
--- /dev/null
+++ b/Interact.hs
@@ -0,0 +1,30 @@
+-- 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'
+
+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 = ["-cpp","-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
-- 
cgit v1.2.3