diff options
Diffstat (limited to 'Hero/Host.hs')
| -rw-r--r-- | Hero/Host.hs | 13 |
1 files changed, 8 insertions, 5 deletions
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 |