git.iko.soy/typeable/pandoc
on 1.10.1 help sign in
typeable/pandoc/Interact.hs
30 lines 1.1 kB history raw
1-- Get an interactive shell with the right packages to load
2-- pandoc modules.
4-- To use:
5-- runghc Interact.hs
6-- then,
7-- :l Text/Pandoc.hs
8-- (or whichever package you like)
10-- You must have first done a 'cabal configure' or 'cabal install'
12import System.Process
13import Distribution.Simple.LocalBuildInfo
14import Distribution.Package
15import Distribution.Version
16import Data.List (intercalate)
18main = do
19 setupConfig' <- readFile "dist/setup-config"
20 let setupConfig = read $ unlines $ drop 1 $ lines setupConfig'
21 let (Just (ComponentLocalBuildInfo { componentPackageDeps = deps })) = libraryConfig setupConfig
22 let packageSpecs = map (toPackageSpec . snd) deps
23 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
24 print args
25 ph <- runProcess "ghci" args (Just "src") Nothing Nothing Nothing Nothing
26 waitForProcess ph
28toPackageSpec pkg = pkgN ++ "-" ++ pkgV
29 where (PackageName pkgN) = pkgName pkg
30 pkgV = intercalate "." $ map show $ versionBranch $ pkgVersion pkg