Skip to content
Snippets Groups Projects
Commit 6b497f07 authored by Ross Paterson's avatar Ross Paterson
Browse files

fix 'Make checking program versions not produce error spew' for non-GHC

parent ef95a083
No related merge requests found
......@@ -238,7 +238,7 @@ rawSystemStdout verbosity path args = do
#else
withTempFile "." "" $ \tmpName -> do
let quote name = "'" ++ name ++ "'"
maybeExit system $ unwords (map quote (path:args)) ++ " >" ++ quote tmpName
maybeExit $ system $ unwords (map quote (path:args)) ++ " >" ++ quote tmpName
output <- readFile tmpName
length output `seq` return output
#endif
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment