mirror of
https://github.com/wasp-lang/wasp.git
synced 2024-12-25 18:13:52 +03:00
120 lines
5.1 KiB
Haskell
120 lines
5.1 KiB
Haskell
module Main where
|
|
|
|
import Control.Concurrent (threadDelay)
|
|
import qualified Control.Concurrent.Async as Async
|
|
import Control.Monad (void)
|
|
import Data.Version (showVersion)
|
|
import Paths_waspc (version)
|
|
import System.Environment
|
|
import Data.Char (isSpace)
|
|
|
|
import Command (runCommand)
|
|
import Command.Build (build)
|
|
import qualified Command.Call
|
|
import Command.Clean (clean)
|
|
import Command.Compile (compile)
|
|
import Command.CreateNewProject (createNewProject)
|
|
import Command.Db (runDbCommand, studio)
|
|
import Command.Db.Migrate (migrateSave, migrateUp)
|
|
import Command.Start (start)
|
|
import qualified Command.Telemetry as Telemetry
|
|
import qualified Util.Terminal as Term
|
|
|
|
|
|
main :: IO ()
|
|
main = do
|
|
args <- getArgs
|
|
let commandCall = case args of
|
|
["new", projectName] -> Command.Call.New projectName
|
|
["start"] -> Command.Call.Start
|
|
["clean"] -> Command.Call.Clean
|
|
["compile"] -> Command.Call.Compile
|
|
("db":dbArgs) -> Command.Call.Db dbArgs
|
|
["version"] -> Command.Call.Version
|
|
["build"] -> Command.Call.Build
|
|
["telemetry"] -> Command.Call.Telemetry
|
|
_ -> Command.Call.Unknown args
|
|
|
|
telemetryThread <- Async.async $ runCommand $ Telemetry.considerSendingData commandCall
|
|
|
|
case commandCall of
|
|
Command.Call.New projectName -> runCommand $ createNewProject projectName
|
|
Command.Call.Start -> runCommand start
|
|
Command.Call.Clean -> runCommand clean
|
|
Command.Call.Compile -> runCommand compile
|
|
Command.Call.Db dbArgs -> dbCli dbArgs
|
|
Command.Call.Version -> printVersion
|
|
Command.Call.Build -> runCommand build
|
|
Command.Call.Telemetry -> runCommand Telemetry.telemetry
|
|
Command.Call.Unknown _ -> printUsage
|
|
|
|
-- If sending of telemetry data is still not done 1 second since commmand finished, abort it.
|
|
-- We also make sure here to catch all errors that might get thrown and silence them.
|
|
void $ Async.race (threadDelaySeconds 1) (Async.waitCatch telemetryThread)
|
|
where
|
|
threadDelaySeconds = let microsecondsInASecond = 1000000
|
|
in threadDelay . (* microsecondsInASecond)
|
|
|
|
printUsage :: IO ()
|
|
printUsage = putStrLn $ unlines
|
|
[ title "USAGE"
|
|
, " wasp <command> [command-args]"
|
|
, ""
|
|
, title "COMMANDS"
|
|
, title " GENERAL"
|
|
, cmd " new <project-name> Creates new Wasp project."
|
|
, cmd " version Prints current version of CLI."
|
|
, title " IN PROJECT"
|
|
, cmd " start Runs Wasp app in development mode, watching for file changes."
|
|
, cmd " db <db-cmd> [args] Executes a database command. Run 'wasp db' for more info."
|
|
, cmd " clean Deletes all generated code and other cached artifacts. Wasp equivalent of 'have you tried closing and opening it again?'."
|
|
, cmd " build Generates full web app code, ready for deployment. Use when deploying or ejecting."
|
|
, cmd " telemetry Prints telemetry status."
|
|
, ""
|
|
, title "EXAMPLES"
|
|
, " wasp new MyApp"
|
|
, " wasp start"
|
|
, " wasp db migrate-save \"init\""
|
|
, ""
|
|
, Term.applyStyles [Term.Green] "Docs:" ++ " https://wasp-lang.dev/docs"
|
|
, Term.applyStyles [Term.Magenta] "Discord (chat):" ++ " https://discord.gg/rzdnErX"
|
|
]
|
|
|
|
printVersion :: IO ()
|
|
printVersion = putStrLn $ showVersion version
|
|
|
|
-- TODO(matija): maybe extract to a separate module, e.g. DbCli.hs?
|
|
dbCli :: [String] -> IO ()
|
|
dbCli args = case args of
|
|
["migrate-save", migrationName] -> runDbCommand $ migrateSave migrationName
|
|
["migrate-up"] -> runDbCommand migrateUp
|
|
["studio"] -> runDbCommand studio
|
|
_ -> printDbUsage
|
|
|
|
printDbUsage :: IO ()
|
|
printDbUsage = putStrLn $ unlines
|
|
[ title "USAGE"
|
|
, " wasp db <command> [command-args]"
|
|
, ""
|
|
, title "COMMANDS"
|
|
, cmd " migrate-save <migration-name> Saves a migration for updating to current schema."
|
|
, cmd " migrate-up Applies all migrations, updating your db to the current schema."
|
|
, cmd " studio GUI for inspecting your database."
|
|
, ""
|
|
, title "EXAMPLES"
|
|
, " wasp db migrate-save \"Added description field.\""
|
|
, " wasp db migrate-up"
|
|
]
|
|
|
|
title :: String -> String
|
|
title = Term.applyStyles [Term.Bold]
|
|
|
|
cmd :: String -> String
|
|
cmd = mapFirstWord (Term.applyStyles [Term.Yellow, Term.Bold])
|
|
|
|
mapFirstWord :: (String -> String) -> String -> String
|
|
mapFirstWord f s = beforeFirstWord ++ f firstWord ++ afterFirstWord
|
|
where
|
|
(beforeFirstWord, firstWordAndAfter) = span isSpace s
|
|
(firstWord, afterFirstWord) = break isSpace firstWordAndAfter
|