hifi-0.1.3.0: app/Main.hs

module Main where

import           System.Environment (getArgs, getProgName)
import           Templating

main :: IO ()
main = do
  args <- getArgs
  progName <- getProgName
  case args of
    [filename, iface, ssid, passphrase] -> do
      (scriptFile, dataFile) <- createFiles filename iface ssid passphrase
      putStrLn $ "Created " ++ scriptFile ++ " and " ++ dataFile
    _ ->
      putStrLn $
      "Usage:\n\t" ++ progName ++ " <filename> <interface> <ssid> <passphrase>"