[commit: ghc] wip/nfs-locking: Fix bootPkgConstraints. (98cfed5)

[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/98cfed580f1655de01f706761b4c4b56da22e523/ghc

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

commit 98cfed580f1655de01f706761b4c4b56da22e523
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Fri Jan 30 12:47:22 2015 +0000

    Fix bootPkgConstraints.


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

98cfed580f1655de01f706761b4c4b56da22e523
 src/Package/Data.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Package/Data.hs b/src/Package/Data.hs
index 5373f6e..6d108aa 100644
--- a/src/Package/Data.hs
+++ b/src/Package/Data.hs
@@ -74,8 +74,8 @@ bootPkgConstraints = args $ do
         content <- lines <$> liftIO (readFile cabal)
         let versionLines = filter (("ersion:" `isPrefixOf`) . drop 1) content
         case versionLines of
-            [versionLine] -> return $ "--constraint " ++ depName ++ " == "
-                                    ++ dropWhile (not . isDigit) versionLine
+            [versionLine] -> return $ args ["--constraint", depName ++ " == "
+                                    ++ dropWhile (not . isDigit) versionLine]
             _             -> redError $ "Cannot determine package version in '"
                                       ++ unifyPath cabal ++ "'."