module Die (die) where

import System.Exit (ExitCode (ExitFailure), exitWith)
import Text.Printf (printf)

die :: String -> IO a
die s = do
  printf "error: %s\n" s
  exitWith (ExitFailure 1)