      error $
      mconcat ["Failed to read [[", str, "]] for environment variable ", env]


-- | Fill a database from csv files
main :: IO ()
main = do
  env <- lookupSetting "ENV" Development
  port <- lookupSetting "PORT" 8081
  logEnv <- defaultLogEnv
  pool <- makePool env logEnv