hifi-0.1.0.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>"