loadConfig :: Script AppEnv
loadConfig = fmapLT ("There were problems loading the config:\n" <>) $ do
  conf <- scriptIO $ load [Required "app.cfg"]
  conn <- scriptIO $ requireConnection conf
  pure $ AppEnv (DbEnv conn)
loadConfig :: Script AppEnv
loadConfig = fmapLT ("There were problems loading the config:\n" <>) $ do
  conf <- scriptIO $ load [Required "app.cfg"]
  conn <- scriptIO $ requireConnection conf
  pure $ AppEnv (DbEnv conn)
loadConfig = fmapLT ("There were problems loading the config:\n" <>) $ do
  conf <- scriptIO $ load [Required "app.cfg"]
  conn <- scriptIO $ requireConnection conf
  pure $ AppEnv (DbEnv conn)