-- Forcefully exit the program by printing a given error message
fatal :: String -> IO ()
fatal str = hPutStrLn stderr ("(FATAL) " ++ str ++ helpText) >> exitFailure
  where
    helpText = "\n\nType `hunch --help` for more information on Hunch usage."

-- Catch exception and print it as other errors
fatal :: String -> IO ()
fatal str = hPutStrLn stderr ("(FATAL) " ++ str ++ helpText) >> exitFailure
  where
    helpText = "\n\nType `hunch --help` for more information on Hunch usage."

-- Catch exception and print it as other errors
fatal str = hPutStrLn stderr ("(FATAL) " ++ str ++ helpText) >> exitFailure
  where
    helpText = "\n\nType `hunch --help` for more information on Hunch usage."

-- Catch exception and print it as other errors