Script.hs

module System.Script (
    syntax
  ) where

import System.Exit (die)
import System.Environment (getProgName)
import Text.Printf (printf)

syntax :: String -> IO ()
syntax s = do
  this <- getProgName
  die $ printf "Syntax: %s %s" this s