|
Revision 22351, 467 bytes
(checked in by azawawi, 2 months ago)
|
|
[pugs] Reverted Setup.lhs from previous fix to clear warning
|
-
Property svn:mime-type set to
text/plain; charset=UTF-8
-
Property svn:eol-style set to
native
-
Property svn:executable set to
*
|
| Line | |
|---|
| 1 | #!/usr/bin/env runghc |
|---|
| 2 | > {-# GHC_OPTIONS -fno-warn-deprecation #-} |
|---|
| 3 | > import Distribution.Simple |
|---|
| 4 | > import System.Directory |
|---|
| 5 | > import System.Environment |
|---|
| 6 | > -- import System.Cmd (rawSystem) |
|---|
| 7 | > |
|---|
| 8 | > main :: IO () |
|---|
| 9 | > main = do |
|---|
| 10 | > args <- getArgs |
|---|
| 11 | > if args == ["-d"] then putStrLn =<< getAppUserDataDirectory "cabal" else do |
|---|
| 12 | >-- writeBuildInfo |
|---|
| 13 | > defaultMainWithHooks defaultUserHooks |
|---|
| 14 | >-- where |
|---|
| 15 | >-- writeBuildInfo = rawSystem "perl" ["Configure.PL"] |
|---|
