From: simonmar <unknown>
Date: Thu, 4 Jan 2001 13:18:14 +0000 (+0000)
Subject: [project @ 2001-01-04 13:18:14 by simonmar]
X-Git-Tag: Approximately_9120_patches~2969
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=21ab91ff06897897baf95f739bd26c3fac20bc1c;p=ghc-hetmet.git

[project @ 2001-01-04 13:18:14 by simonmar]
exit(1) in the case of a parse error.
---

diff --git a/ghc/utils/hsc2hs/Main.hs b/ghc/utils/hsc2hs/Main.hs
index 5d88e60..9874ffb 100644
--- a/ghc/utils/hsc2hs/Main.hs
+++ b/ghc/utils/hsc2hs/Main.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: Main.hs,v 1.4 2000/12/30 20:06:00 qrczak Exp $
+-- $Id: Main.hs,v 1.5 2001/01/04 13:18:14 simonmar Exp $
 --
 -- (originally "GlueHsc.hs" by Marcin 'Qrczak' Kowalczyk)
 --
@@ -64,7 +64,7 @@ processFile :: [Flag] -> String -> IO ()
 processFile flags name = do
     parsed <- parseFromFile parser name
     case parsed of
-        Left err -> print err
+        Left err -> print err >> exitFailure
         Right toks -> output flags name toks
 
 data Token