[commit: ghc] wip/nfs-locking: Fix splitObjects function. (1b0bfa6)

[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/1b0bfa663029117b64bfc84687718dc3579119e8/ghc

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

commit 1b0bfa663029117b64bfc84687718dc3579119e8
Author: Andrey Mokhov <andrey.mokhov at ncl.ac.uk>
Date:   Thu Jan 15 18:43:25 2015 +0000

    Fix splitObjects function.


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

1b0bfa663029117b64bfc84687718dc3579119e8
 src/Oracles/Option.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Oracles/Option.hs b/src/Oracles/Option.hs
index ee8fb66..57137ba 100644
--- a/src/Oracles/Option.hs
+++ b/src/Oracles/Option.hs
@@ -81,6 +81,7 @@ splitObjects stage = do
     splitObjectsBroken <- test SplitObjectsBroken
     ghcUnregisterised  <- test GhcUnregisterised
     return $ not splitObjectsBroken && not ghcUnregisterised
+           && stage == Stage1
            && arch `elem` ["i386", "x86_64", "powerpc", "sparc"]
            && os   `elem` ["mingw32", "cygwin32", "linux", "darwin",
                            "solaris2", "freebsd", "dragonfly", "netbsd",