exitFailure on panic

diff --git a/src/Dyna/Main/Driver.hs b/src/Dyna/Main/Driver.hs
index c3312983283c06f371722529a6575bc9bd662813..dd076cbcff7e7b6662de1983887a218bba8a3e2e 100644 (file)
--- a/src/Dyna/Main/Driver.hs
+++ b/src/Dyna/Main/Driver.hs
@@ -517,6 +517,7 @@ main = catches (getArgs >>= main_)
   panic d = do
     PP.hPutDoc stderr (panicMsg <> line <> taMsg <> line <> PP.indent 1 d)
     hPutStrLn stderr ""
+    exitFailure
 
   upeMsg :: (IsString s) => s
   upeMsg = "Encountered error in input program:"