Db interpreter part of runProd

notifyDslProd _m (DbUpsertSettings uid settings next) = do
  let meth = "DbUpsertSettings: "
  Log.debug $ meth <> show uid <> " " <> show settings
  -- TODO warning: fromJust
  cp <- fromJust <$> asks (^. pool)
  r <- liftIO $ HP.use cp $ upsertSettings uid settings
  Log.debug $ meth <> show r
  next
notifyDslProd _m (DbReadSettings uid next) = do
  let meth = "DbReadSettings: "
  Log.debug $ meth <> show uid
  -- TODO warning: fromJust
  cp <- fromJust <$> asks (^. pool)
  r <- liftIO $ HP.use cp $ readSettings uid
  Log.debug $ meth <> show r
  case r of
    Left _err -> next Nothing
    Right mbs -> next mbs
notifyDslProd _m (DbCreateHistoryEntry ntf next) = do
  let meth = "DbCreateHistoryEntry: "
  Log.debug $ meth <> show ntf
  next
notifyDslProd _m (DbReadHistoryEntries rid ret) = do
  let meth = "DbReadHistoryEntries: "
  Log.debug $ meth <> show rid
  ret []