testRun
  :: Params
  -> Eff '[ CfEff, S3Eff, GenEff, ConfigEff, State Config, Reader Params, Writer Journal ] ()
  -> (Config, Journal)
testRun params@Params{ config } = run
  . runWriter
  . runReader params
  . map snd . runState config
  . Config.run
  . testGenRun
  {- . Lbd.run -}
  . testS3Run
  . testCfRun
testRun
  :: Params
  -> Eff '[ CfEff, S3Eff, GenEff, ConfigEff, State Config, Reader Params, Writer Journal ] ()
  -> (Config, Journal)
testRun params@Params{ config } = run
  . runWriter
  . runReader params
  . map snd . runState config
  . Config.run
  . testGenRun
  {- . Lbd.run -}
  . testS3Run
  . testCfRun
testRun params@Params{ config } = run
  . runWriter
  . runReader params
  . map snd . runState config
  . Config.run
  . testGenRun
  {- . Lbd.run -}
  . testS3Run
  . testCfRun