From 5ab3bfb6a659a72908bf69f74976bf70afcbddbb Mon Sep 17 00:00:00 2001
From: Nathaniel Wesley Filardo <nwf@cs.jhu.edu>
Date: Sun, 7 Jul 2013 22:21:33 -0400
Subject: [PATCH] exitFailure on panic

---
 src/Dyna/Main/Driver.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Dyna/Main/Driver.hs b/src/Dyna/Main/Driver.hs
index c331298..dd076cb 100644
--- 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:"
-- 
2.50.1