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 args <- getArgs
let commandCall = case args of let commandCall = case args of
["new", projectName] -> Command.Call.New projectName ["new", projectName] -> Command.Call.New projectName
["new-ai"] -> Command.Call.NewAIHuman ["new:ai"] -> Command.Call.NewAIHuman
["new-ai", appName, appDesc] -> Command.Call.NewAIMachine appName appDesc ["new:ai", appName, appDesc] -> Command.Call.NewAIMachine appName appDesc
["start"] -> Command.Call.Start ["start"] -> Command.Call.Start
["start", "db"] -> Command.Call.StartDb ["start", "db"] -> Command.Call.StartDb
["clean"] -> Command.Call.Clean ["clean"] -> Command.Call.Clean