withProgName

withProgName :: String -> IO a -> IO a
base System.Environment
withProgName name act - while executing action act, have getProgName return name.