Add ansi terminal skeleton

This commit is contained in:
2022-06-09 11:16:34 +02:00
parent 54af66d115
commit d5483facdc
6 changed files with 68 additions and 4 deletions

View File

@@ -104,6 +104,9 @@ data Command
| Nuke
#if defined(BRICK)
| Interactive
#endif
#if defined(ANSI)
| InteractiveAnsi
#endif
| Prefetch PrefetchCommand
| GC GCOptions
@@ -184,8 +187,19 @@ opts =
com :: Parser Command
com =
subparser
#if defined(BRICK)
#if defined(ANSI)
( command
"tui-ansi"
( (\_ -> InteractiveAnsi)
<$> info
helper
( progDesc "Start the interactive GHCup UI (ansi)"
)
)
<>
#endif
#if defined(BRICK)
command
"tui"
( (\_ -> Interactive)
<$> info
@@ -195,7 +209,7 @@ com =
)
<> command
#else
( command
command
#endif
"install"
( Install