Declare die for GHC 7.8 and below

packages/cli/src/Happy/CLI/Dying.hs

@@ -2,10 +2,18 @@ module Happy.CLI.Dying (die, dieUsage, dieHappy, bye, byeUsage, getProgramName,
 
 import System.Console.GetOpt
 import System.Environment
-import System.Exit (die, exitWith, ExitCode(..))
+import System.Exit (exitWith, ExitCode(..))
 import Control.Monad (liftM)
 import Data.List (isSuffixOf)
 
+#if MIN_VERSION_base(4,8,0)
+import System.Exit (die)
+#else
+import System.IO
+die :: String -> IO a
+die s = hPutStr stderr s >> exitWith (ExitFailure 1) 
+#endif
+
 dieHappy :: String -> IO a
 dieHappy s = getProgramName >>= \prog -> die (prog ++ ": " ++ s)
 

packages/frontend/src/Happy/Frontend.hs

@@ -55,7 +55,10 @@ writePrettyFile location abssyn = do
 possDelitify :: String -> String -> IO (String, String)
 possDelitify ('y':'l':'.':nm) fl = return (deLitify fl, reverse nm)
 possDelitify ('y':'.':nm) fl     = return (fl, reverse nm)
-possDelitify f            _      = die ("`" ++ reverse f ++ "' does not end in `.y' or `.ly'\n") where
+possDelitify f            _      = die ("`" ++ reverse f ++ "' does not end in `.y' or `.ly'\n")
+#if !MIN_VERSION_base(4,8,0)
+  where die s = hPutStr stderr s >> exitWith (ExitFailure 1) 
+#endif
 
 deLitify :: String -> String
 deLitify = deLit where

packages/tabular/src/Happy/Tabular.hs

@@ -106,6 +106,9 @@ reportConflicts g sr rr = case expect g of
         if rr /= 0
           then hPutStrLn stderr ("reduce/reduce conflicts: " ++ show rr)
           else return ()
+#if !MIN_VERSION_base(4,8,0)
+    where die s = hPutStr stderr s >> exitWith (ExitFailure 1) 
+#endif
 
 type ItemSetWithGotos = (Set Lr0Item, [(Name,Int)])
 writeInfoFile :: [ItemSetWithGotos] -> Grammar -> ActionTable -> GotoTable -> Array Int (Int,Int) -> String -> Maybe String -> [Int] -> [String] -> IO ()