Change syntax error message

1 files changed, 1 insertions, 1 deletions

diff --git a/Schmim.hs b/Schmim.hs
index 3c0bc79..de166a3 100644
--- a/Schmim.hs
+++ b/Schmim.hs
@@ -28,7 +28,7 @@ runFile v p f = readFile f >>= run v p
 
 run :: Verbosity -> ParseFun Exp -> String -> IO ()
 run v p s = let ts = myLLexer s in case p ts of
-           Bad s    -> do putStrLn "\nParse              Failed...\n"
+           Bad s    -> do putStrLn "Syntax error"
                           exitFailure
            Ok  tree -> do let res = interp tree
                           case res of