module Main (main) where

import Action.Generate (actionGenerate)
import Action.Server (actionServer)
import Control.Monad (join)
import Options.Applicative



opts :: Parser (IO ())
opts = subparser
  ( command "generate" (info (pure actionGenerate) idm)
 <> command "server" (info (pure actionServer) idm)
  )
  

main :: IO ()
main = join $ execParser (info opts idm)
