wrath/shaniqua-plugins
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Move --with-ghc Setup.lhs into Scripts, use standard Setup.lhs at top level

Browse Source
This commit is contained in:
dons 2005-12-25 22:46:17 +00:00
parent fc1a519459
commit 3d372cfe5b
2 changed files with 21 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
Setup.lhs
View File

@ -1,19 +1,5 @@
#!/usr/bin/env runhaskell #!/usr/bin/env runhaskell
> module Main where > module Main where
> import Distribution.Simple > import Distribution.Simple
> import Distribution.Setup ( ConfigFlags (..) )
> import System.Directory ( findExecutable )
>
> main :: IO () > main :: IO ()
> main = defaultMainWithHooks (defaultUserHooks { postConf = defaultPostConf }) > main = defaultMainWithHooks defaultUserHooks
> where defaultPostConf args flags lbi {- xx -}
> = do args' <- fmap (args++) (configToArgs flags)
> (postConf defaultUserHooks) args' flags lbi {- xx -}
>
> configToArgs :: ConfigFlags -> IO [String]
> configToArgs (ConfigFlags { configHcPath = Just hcPath })
> = do exec <- findExecutable hcPath
> case exec of
> Just realPath -> return ["--with-ghc="++realPath]
> Nothing -> return ["--with-ghc="++hcPath]
> configToArgs _ = return []

20
scripts/Setup-with-ghc.lhs Normal file
View File

@ -0,0 +1,20 @@
#!/usr/bin/env runhaskell
> module Main where
> import Distribution.Simple
> import Distribution.Setup ( ConfigFlags (..) )
> import System.Directory ( findExecutable )
>
> main :: IO ()
> main = defaultMainWithHooks (defaultUserHooks { postConf = defaultPostConf })
> where defaultPostConf args flags lbi {- xx -}
> = do args' <- fmap (args++) (configToArgs flags)
> (postConf defaultUserHooks) args' flags lbi {- xx -}
>
> -- need to pass with-ghc arg onto ./configure for non-standard ghcs
> configToArgs :: ConfigFlags -> IO [String]
> configToArgs (ConfigFlags { configHcPath = Just hcPath })
> = do exec <- findExecutable hcPath
> case exec of
> Just realPath -> return ["--with-ghc="++realPath]
> Nothing -> return ["--with-ghc="++hcPath]
> configToArgs _ = return []