@@ -137,7 +137,7 @@ cabalFromFile failHard file =
137 Cabal.ParseFailed e | failHard -> do
137 Cabal.ParseFailed e | failHard -> do
138 let (line, err) = ParseUtils.locatedErrorMsg e
138 let (line, err) = ParseUtils.locatedErrorMsg e
139 msg = maybe "" ((++ ": ") . show) line ++ err
139 msg = maybe "" ((++ ": ") . show) line ++ err
140− putStrLn $ "*** error parsing cabal file: " ++ msg
140+ hPutStrLn stderr $ "*** error parsing cabal file: " ++ msg
141 exitFailure
141 exitFailure
142 Cabal.ParseFailed _ -> return Nothing
142 Cabal.ParseFailed _ -> return Nothing
143 Cabal.ParseOk _ a -> return (Just a)
143 Cabal.ParseOk _ a -> return (Just a)