[commit: ghc] wip/nfs-locking: Adds -no-hs-main to iservBin (8718da8)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/nfs-locking
Link       : http://ghc.haskell.org/trac/ghc/changeset/8718da8fe567d0ab9fa3b0f85726d73c9ed04cb3/ghc

>---------------------------------------------------------------

commit 8718da8fe567d0ab9fa3b0f85726d73c9ed04cb3
Author: Moritz Angermann <moritz.angermann at gmail.com>
Date:   Tue Jan 5 20:44:55 2016 +0800

    Adds -no-hs-main to iservBin
    
    Fixes #102. But does not *yet* include the generation of the wrapper script.


>---------------------------------------------------------------

8718da8fe567d0ab9fa3b0f85726d73c9ed04cb3
 shaking-up-ghc.cabal              |  1 +
 src/Settings/Args.hs              |  2 ++
 src/Settings/Packages/IservBin.hs | 10 ++++++++++
 3 files changed, 13 insertions(+)

diff --git a/shaking-up-ghc.cabal b/shaking-up-ghc.cabal
index 2eb9f72..00fb408 100644
--- a/shaking-up-ghc.cabal
+++ b/shaking-up-ghc.cabal
@@ -87,6 +87,7 @@ executable ghc-shake
                        , Settings.Packages.Haddock
                        , Settings.Packages.Hp2ps
                        , Settings.Packages.IntegerGmp
+                       , Settings.Packages.IservBin
                        , Settings.Packages.Rts
                        , Settings.Packages.RunGhc
                        , Settings.TargetDirectory
diff --git a/src/Settings/Args.hs b/src/Settings/Args.hs
index a677c80..fb121ed 100644
--- a/src/Settings/Args.hs
+++ b/src/Settings/Args.hs
@@ -27,6 +27,7 @@ import Settings.Packages.GhcPrim
 import Settings.Packages.Haddock
 import Settings.Packages.Hp2ps
 import Settings.Packages.IntegerGmp
+import Settings.Packages.IservBin
 import Settings.Packages.Rts
 import Settings.Packages.RunGhc
 import Settings.User
@@ -72,5 +73,6 @@ defaultPackageArgs = mconcat
     , haddockPackageArgs
     , hp2psPackageArgs
     , integerGmpPackageArgs
+    , iservBinPackageArgs
     , rtsPackageArgs
     , runGhcPackageArgs ]
diff --git a/src/Settings/Packages/IservBin.hs b/src/Settings/Packages/IservBin.hs
new file mode 100644
index 0000000..5ad3bd5
--- /dev/null
+++ b/src/Settings/Packages/IservBin.hs
@@ -0,0 +1,10 @@
+module Settings.Packages.IservBin (iservBinPackageArgs) where
+
+import Expression
+import GHC (iservBin)
+import Predicates (builderGhc, package)
+
+iservBinPackageArgs :: Args
+iservBinPackageArgs = package iservBin ? do
+    mconcat [ builderGhc ?
+              mconcat [ arg "-no-hs-main" ]]