From b453bc9d310d65af19463e43f4112b32ce0aa56a Mon Sep 17 00:00:00 2001 From: Ayaz Hafiz Date: Wed, 7 Sep 2022 18:07:39 -0500 Subject: [PATCH] Format --- examples/interactive/cli-platform/Arg.roc | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/examples/interactive/cli-platform/Arg.roc b/examples/interactive/cli-platform/Arg.roc index 7047af6929..cc45c283ce 100644 --- a/examples/interactive/cli-platform/Arg.roc +++ b/examples/interactive/cli-platform/Arg.roc @@ -29,8 +29,8 @@ Config : { OptConfig : { long : Str, - short ? OptionStr, - help ? OptionStr, + short ?OptionStr, + help ?OptionStr, } succeed : a -> Parser a @@ -178,7 +178,7 @@ parse = \@Parser parser, args -> parse parser2 args bool : _ -> Parser Bool # TODO: panics if OptConfig annotated -bool = \{long, short ? NotProvided, help ? NotProvided} -> +bool = \{ long, short ? NotProvided, help ? NotProvided } -> fn = \args -> when findOneArg long short args is Err NotFound -> Err NotFound @@ -186,16 +186,16 @@ bool = \{long, short ? NotProvided, help ? NotProvided} -> Ok "false" -> Ok False Ok _ -> Err WrongType - @Parser (Arg {long, short, help} fn) + @Parser (Arg { long, short, help } fn) str : _ -> Parser Str # TODO: panics if OptConfig annotated -str = \{long, short ? NotProvided, help ? NotProvided} -> +str = \{ long, short ? NotProvided, help ? NotProvided } -> fn = \args -> when findOneArg long short args is Err NotFound -> Err NotFound Ok foundArg -> Ok foundArg - @Parser (Arg {long, short, help} fn) + @Parser (Arg { long, short, help } fn) apply = \arg1, arg2 -> andMap arg2 arg1