From 1f2e453d0c9f8412b9032cb4e655713ecdcf1fa3 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Mon, 26 May 2025 04:43:38 -0400 Subject: web: Refactor major style --- fig-bus/main/Main.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'fig-bus/main') diff --git a/fig-bus/main/Main.hs b/fig-bus/main/Main.hs index bf5c170..addb7dd 100644 --- a/fig-bus/main/Main.hs +++ b/fig-bus/main/Main.hs @@ -4,14 +4,14 @@ import Fig.Prelude import Options.Applicative -import qualified Fig.Bus.SExp as SExp +import qualified Fig.Bus.SExpr as SExpr import qualified Fig.Bus.Binary as Binary -data Command = SExp | Binary +data Command = SExpr | Binary parseCommand :: Parser Command parseCommand = subparser $ mconcat - [ command "sexp" $ info (pure SExp) (progDesc "Launch the s-expression bus") + [ command "sexp" $ info (pure SExpr) (progDesc "Launch the s-expression bus") , command "binary" $ info (pure Binary) (progDesc "Launch the binary bus") ] @@ -34,5 +34,5 @@ main = do <> header "fig-bus - a pub/sub message bus" ) case opts.cmd of - SExp -> SExp.main (Just opts.host, opts.port) + SExpr -> SExpr.main (Just opts.host, opts.port) Binary -> Binary.main (Just opts.host, opts.port) -- cgit v1.2.3