From dda25240553486522c953e7a1f43ae67dbe2f22a Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Wed, 17 Feb 2021 20:28:51 -0500
Subject: Fixup some modules

---
 Hero/Host.hs | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

(limited to 'Hero')

diff --git a/Hero/Host.hs b/Hero/Host.hs
index af0e134..3f6df8e 100644
--- a/Hero/Host.hs
+++ b/Hero/Host.hs
@@ -29,6 +29,7 @@
 -- : dep mtl
 -- : dep network-uri
 -- : dep protolude
+-- : dep rainbow
 -- : dep safecopy
 -- : dep servant
 -- : dep servant-auth
@@ -56,6 +57,7 @@ where
 import Alpha
 import Biz.App (CSS (..), Manifest (..))
 import qualified Biz.Cli as Cli
+import qualified Biz.Log as Log
 import Biz.Test ((@=?))
 import qualified Biz.Test as Test
 import qualified Clay
@@ -63,6 +65,7 @@ import qualified Crypto.JOSE.JWK as Crypto
 import Data.Acid (AcidState)
 import qualified Data.Acid.Abstract as Acid
 import Data.Text (Text)
+import qualified Data.Text as Text
 import qualified Data.Text.Lazy as Lazy
 import Hero.Core
 import qualified Hero.Keep as Keep
@@ -112,11 +115,11 @@ move _ = bracket startup shutdown run
           do
             keep <- Keep.open (heroKeep cfg)
             skey <- upsertKey (heroSkey cfg)
-            say "hero"
-            prn <| "port: " ++ show (heroPort cfg)
-            prn <| "keep: " ++ heroKeep cfg
-            prn <| "node: " ++ heroNode cfg
-            prn <| "skey: " ++ heroSkey cfg
+            Log.info ["!", "hero"] >> Log.br
+            Log.info ["port", show <| heroPort cfg] >> Log.br
+            Log.info ["keep", Text.pack <| heroKeep cfg] >> Log.br
+            Log.info ["node", Text.pack <| heroNode cfg] >> Log.br
+            Log.info ["skey", Text.pack <| heroSkey cfg] >> Log.br
             let jwts = Auth.defaultJWTSettings skey
                 cs =
                   Auth.defaultCookieSettings
-- 
cgit v1.2.3