app/Die.hs


1
2
3
4
5
6
7
8
9

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)