This commit is contained in:
Martin Sosic 2023-06-19 23:08:57 +02:00
parent 9a079f90d2
commit 170d63ae63

View File

@ -39,8 +39,8 @@ main = withUtf8 . (`E.catch` handleInternalErrors) $ do
args <- getArgs
let commandCall = case args of
["new", projectName] -> Command.Call.New projectName
["new-ai"] -> Command.Call.NewAIHuman
["new-ai", appName, appDesc] -> Command.Call.NewAIMachine appName appDesc
["new:ai"] -> Command.Call.NewAIHuman
["new:ai", appName, appDesc] -> Command.Call.NewAIMachine appName appDesc
["start"] -> Command.Call.Start
["start", "db"] -> Command.Call.StartDb
["clean"] -> Command.Call.Clean