Merge pull request #3957 from 23Skidoo/issue-3915

D.S.GHCJS.libAbiHash: exclude trailing newline.
haskell · Oct 8, 2016 · d29d7bb · d29d7bb
2 parents 4dd9273 + 74b4049
commit d29d7bb
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/Cabal/Distribution/Simple/GHCJS.hs b/Cabal/Distribution/Simple/GHCJS.hs
@@ -789,8 +789,9 @@ libAbiHash verbosity _pkg_descr lbi lib clbi = do
            else error "libAbiHash: Can't find an enabled library way"
   --
   (ghcjsProg, _) <- requireProgram verbosity ghcjsProgram (withPrograms lbi)
-  getProgramInvocationOutput verbosity
-    (ghcInvocation ghcjsProg comp platform ghcArgs)
+  hash <- getProgramInvocationOutput verbosity
+          (ghcInvocation ghcjsProg comp platform ghcArgs)
+  return (takeWhile (not . isSpace) hash)
 
 adjustExts :: String -> String -> GhcOptions -> GhcOptions
 adjustExts hiSuf objSuf opts =