web: Refactor major style

4 files changed, 8 insertions, 8 deletions

diff --git a/fig-bus/fig-bus.cabal b/fig-bus/fig-bus.cabal
index bfb2c7f..9655c67 100644
--- a/fig-bus/fig-bus.cabal
+++ b/fig-bus/fig-bus.cabal
@@ -32,8 +32,8 @@ library
   import: deps
   hs-source-dirs: src
   exposed-modules:
-    Fig.Bus.SExp
-    Fig.Bus.SExp.Client
+    Fig.Bus.SExpr
+    Fig.Bus.SExpr.Client
     Fig.Bus.Binary
     Fig.Bus.Binary.Utils
     Fig.Bus.Binary.Client
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)
diff --git a/fig-bus/src/Fig/Bus/SExp.hs b/fig-bus/src/Fig/Bus/SExpr.hs
index ddd2896..49cee90 100644
--- a/fig-bus/src/Fig/Bus/SExp.hs
+++ b/fig-bus/src/Fig/Bus/SExpr.hs
@@ -1,4 +1,4 @@
-module Fig.Bus.SExp (main) where
+module Fig.Bus.SExpr (main) where
 
 import Fig.Prelude
 
diff --git a/fig-bus/src/Fig/Bus/SExp/Client.hs b/fig-bus/src/Fig/Bus/SExpr/Client.hs
index 780f78f..ccd41a7 100644
--- a/fig-bus/src/Fig/Bus/SExp/Client.hs
+++ b/fig-bus/src/Fig/Bus/SExpr/Client.hs
@@ -1,6 +1,6 @@
 {-# Language QuasiQuotes #-}
 
-module Fig.Bus.SExp.Client (Commands(..), busClient) where
+module Fig.Bus.SExpr.Client (Commands(..), busClient) where
 
 import Fig.Prelude