scalp-webhooks-0.1.1.0: src/Main.hs

module Main (
  main
)  where

import           IntercomDefinitions
import           System.Environment

printUsage :: IO ()
printUsage = mapM_ putStrLn usageLines
  where usageLines = ["USAGE: scalp-webhooks <definition_type>", "Current definition_types: intercom"]

main = do
  args <- getArgs
  case args of
    ("intercom":_) -> runIntercomDefinitions
    _ -> printUsage