diff options
Diffstat (limited to 'Biz/Devalloc.hs')
| -rw-r--r-- | Biz/Devalloc.hs | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/Biz/Devalloc.hs b/Biz/Devalloc.hs index 9bc8bd0..cad343b 100644 --- a/Biz/Devalloc.hs +++ b/Biz/Devalloc.hs @@ -33,6 +33,7 @@ -- : dep ixset -- : dep lucid -- : dep protolude +-- : dep rainbow -- : dep req -- : dep safecopy -- : dep servant @@ -56,6 +57,7 @@ import Alpha hiding (rem, (<.>)) import Biz.App (CSS (..), HtmlApp (..)) import qualified Biz.Cli as Cli import qualified Biz.Id as Id +import qualified Biz.Log as Log import qualified Biz.Look import Biz.Test ((@=?), (@?!=)) import qualified Biz.Test as Test @@ -418,12 +420,11 @@ startup = do oAuthArgs <- Envy.decodeWithDefaults Envy.defConfig kp <- Acid.openLocalStateFrom (keep cfg) init :: IO (Acid.AcidState Keep) jwk <- Auth.generateKey - putText "@" - putText "devalloc" - putText <| "area: " <> (show <| area cfg) - putText <| "port: " <> (show <| port cfg) - putText <| "depo: " <> (Text.pack <| depo cfg) - putText <| "keep: " <> (Text.pack <| keep cfg) + Log.info ["@", "devalloc"] >> Log.br + Log.info ["area", show <| area cfg] >> Log.br + Log.info ["port", show <| port cfg] >> Log.br + Log.info ["depo", Text.pack <| depo cfg] >> Log.br + Log.info ["keep", Text.pack <| keep cfg] >> Log.br let jwtCfg = Auth.defaultJWTSettings jwk let cooks = case area cfg of Test -> testCookieSettings |