hero: rename stuff to new structure

Working toward https://github.com/bsima/biz/issues/5

5 files changed, 13 insertions, 13 deletions

diff --git a/Hero/App.hs b/Hero/Core.hs
index 6f7a8c4..c11456d 100644
--- a/Hero/App.hs
+++ b/Hero/Core.hs
@@ -10,7 +10,7 @@
 {-# LANGUAGE NoImplicitPrelude #-}
 {-# OPTIONS_GHC -fno-warn-missing-signatures #-}
 
-module Hero.App where
+module Hero.Core where
 
 import Alpha
 import qualified Clay
diff --git a/Hero/Server.hs b/Hero/Host.hs
index cdf89d0..fc31c39 100644
--- a/Hero/Server.hs
+++ b/Hero/Host.hs
@@ -47,7 +47,7 @@
 -- : dep wai-middleware-metrics
 -- : dep warp
 -- : dep x509
-module Hero.Server
+module Hero.Host
   ( main,
   )
 where
@@ -61,7 +61,7 @@ import qualified Data.Acid.Abstract as Acid
 import qualified Data.Aeson as Aeson
 import Data.Text (Text)
 import qualified Data.Text.Lazy as Lazy
-import Hero.App
+import Hero.Core
 import qualified Hero.Assets as Assets
 import qualified Hero.Keep as Keep
 import qualified Hero.Look as Look
@@ -94,14 +94,14 @@ main = bracket startup shutdown run
           skey <- upsertKey (heroSkey cfg)
           say "hero"
           prn $ "port: " ++ show (heroPort cfg)
-          prn $ "beam: " ++ heroBeam cfg
           prn $ "keep: " ++ heroKeep cfg
+          prn $ "node: " ++ heroNode cfg
           prn $ "skey: " ++ heroSkey cfg
           let jwts = Auth.defaultJWTSettings skey
               cs = Auth.defaultCookieSettings
               ctx = cs :. jwts :. EmptyContext
               proxy = Proxy @(AllRoutes '[Auth.JWT])
-              static = serveDirectoryWith $ defaultWebAppSettings $ heroBeam cfg
+              static = serveDirectoryWith $ defaultWebAppSettings $ heroNode cfg
               server =
                 -- assets, auth, and the homepage is public
                 static
@@ -151,14 +151,14 @@ type App = (Config, Application, AcidState Keep.HeroKeep)
 data Config
   = Config
       { heroPort :: Warp.Port,
-        heroBeam :: FilePath,
+        heroNode :: FilePath,
         heroKeep :: FilePath,
         heroSkey :: FilePath
       }
   deriving (Generic, Show)
 
 instance Envy.DefConfig Config where
-  defConfig = Config 3000 "_bild/Hero.Client/static" "_keep" "/run/hero/skey"
+  defConfig = Config 3000 "_bild/Hero.Node/static" "_keep" "/run/hero/skey"
 
 instance Envy.FromEnv Config
 
diff --git a/Hero/Keep.hs b/Hero/Keep.hs
index ee625d8..72bd6c2 100644
--- a/Hero/Keep.hs
+++ b/Hero/Keep.hs
@@ -23,7 +23,7 @@ import qualified Data.IxSet as IxSet
 import Data.IxSet (Indexable (..), IxSet, ixFun, ixSet)
 import Data.SafeCopy (base, deriveSafeCopy)
 import qualified Data.Text as Text
-import Hero.App
+import Hero.Core
 
 -- * Keep
 
diff --git a/Hero/Client.hs b/Hero/Node.hs
index 5429855..e32cd59 100644
--- a/Hero/Client.hs
+++ b/Hero/Node.hs
@@ -17,7 +17,7 @@
 -- : dep string-quote
 -- : dep text
 -- : dep ghcjs-base
-module Hero.Client where
+module Hero.Node where
 
 import Alpha
 import Biz.Auth as Auth
@@ -25,7 +25,7 @@ import qualified Data.Aeson as Aeson
 import qualified Data.Set as Set
 import qualified GHC.Show as Legacy
 import GHCJS.Types (JSVal)
-import Hero.App
+import Hero.Core
   ( Action (..),
     AudioState (..),
     Comic (..),
diff --git a/Hero/Service.nix b/Hero/Service.nix
index 89c6907..5885d1c 100644
--- a/Hero/Service.nix
+++ b/Hero/Service.nix
@@ -23,11 +23,11 @@ in
       default = "/var/lib/hero";
       description = "herocomics-server database directory";
     };
-    deck = lib.mkOption {
+    host = lib.mkOption {
       type = lib.types.package;
       description = "herocomics-server package to use";
     };
-    beam = lib.mkOption {
+    node = lib.mkOption {
       type = lib.types.package;
       description = "herocomics-client package to use";
     };
@@ -58,7 +58,7 @@ in
       serviceConfig = {
         KillSignal = "INT";
         Environment = [
-          "HERO_BEAM=${cfg.beam}/static"
+          "HERO_NODE=${cfg.node}/static"
           "HERO_PORT=${toString cfg.port}"
           "HERO_KEEP=${cfg.keep}"
           "HERO_SKEY=/run/hero/skey"