diff options
Diffstat (limited to 'fig-bus/main/Main.hs')
| -rw-r--r-- | fig-bus/main/Main.hs | 8 |
1 files changed, 4 insertions, 4 deletions
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) |