testGenRun
  :: forall effs a
  .  (Members '[ ConfigEff, Writer Journal ] effs)
  => (Eff (GenEff ': effs) a -> Eff effs a)
testGenRun = interpret (\case

  GetAppName ->
    (^. namePrefix) <$> getConfig

  Http mgrSettings _req ->
    panic "Http"

  RunServant _mgrSettings _baseUrl _req ->
    panic "RunServant"

  Amazonka _svc (_req :: b)  -> do
    genAction AmazonkaAction
    pure (panic "response cannot be evaluated" :: (Rs b))

  AmazonkaPostBodyExtract _svc _req _post ->
    panic "AmazonkaPostBodyExtract"

  Say msg ->
    log msg
    -- panic "Say"

  GetCurrentTime ->
    panic "GetCurrentTime"

  Sleep _us ->
    panic "Sleep"

  Build ->
    panic "Build"

  ReadFileLazy _path ->
    panic "ReadFileLazy"

  {- GetLine -> -}
    {- panic "GetLine" -}

  PutStr _content ->
    panic "PutStr"

  )
testGenRun
  :: forall effs a
  .  (Members '[ ConfigEff, Writer Journal ] effs)
  => (Eff (GenEff ': effs) a -> Eff effs a)
testGenRun = interpret (\case

  GetAppName ->
    (^. namePrefix) <$> getConfig

  Http mgrSettings _req ->
    panic "Http"

  RunServant _mgrSettings _baseUrl _req ->
    panic "RunServant"

  Amazonka _svc (_req :: b)  -> do
    genAction AmazonkaAction
    pure (panic "response cannot be evaluated" :: (Rs b))

  AmazonkaPostBodyExtract _svc _req _post ->
    panic "AmazonkaPostBodyExtract"

  Say msg ->
    log msg
    -- panic "Say"

  GetCurrentTime ->
    panic "GetCurrentTime"

  Sleep _us ->
    panic "Sleep"

  Build ->
    panic "Build"

  ReadFileLazy _path ->
    panic "ReadFileLazy"

  {- GetLine -> -}
    {- panic "GetLine" -}

  PutStr _content ->
    panic "PutStr"

  )
testGenRun = interpret (\case

  GetAppName ->
    (^. namePrefix) <$> getConfig

  Http mgrSettings _req ->
    panic "Http"

  RunServant _mgrSettings _baseUrl _req ->
    panic "RunServant"

  Amazonka _svc (_req :: b)  -> do
    genAction AmazonkaAction
    pure (panic "response cannot be evaluated" :: (Rs b))

  AmazonkaPostBodyExtract _svc _req _post ->
    panic "AmazonkaPostBodyExtract"

  Say msg ->
    log msg
    -- panic "Say"

  GetCurrentTime ->
    panic "GetCurrentTime"

  Sleep _us ->
    panic "Sleep"

  Build ->
    panic "Build"

  ReadFileLazy _path ->
    panic "ReadFileLazy"

  {- GetLine -> -}
    {- panic "GetLine" -}

  PutStr _content ->
    panic "PutStr"

  )