mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

better output

Browse source
This commit is contained in:
Joey Hess 2013-12-06 15:18:13 -04:00
parent 1910795ddf
commit 5a03e1cacc
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Build/EvilLinker.hs
View file

@ -116,7 +116,7 @@ getOutput cmd params env = do
runParser' :: Parser a -> String -> a
runParser' p s = either failedparse id (parse p "" s)
where
failedparse e = error $ (show e) ++ "\nInput:\n" ++ s
failedparse e = error $ (show e) ++ "\n<<<\n" ++ s ++ "\n>>>"
atFile :: FilePath -> String
atFile f = '@':f
@ -135,7 +135,6 @@ main = do
["build", "--ghc-options=-v -keep-tmp-files"] Nothing
gccout <- fst <$> runAtFile parseGhcLink ghcout "gcc.opt" ["-v"]
collect2out <- fst <$> runAtFile parseGccLink gccout "collect2.opt" ["-v"]
writeFile "collect2.out" collect2out
(out, ok) <- runAtFile parseCollect2 collect2out "ld.opt" []
unless ok $
error $ "ld failed:\n" ++ out