From a20271db6d97dd4c68e99389323cd885e76916bd Mon Sep 17 00:00:00 2001
From: Rene Vergara <rene@vergara.network>
Date: Mon, 23 Oct 2023 13:43:45 -0500
Subject: [PATCH] Create utility to load updated languages

---
 app/Tasks.hs      |  1 +
 src/ZGoBackend.hs | 11 +++++++++++
 stack.yaml        |  2 +-
 stack.yaml.lock   |  8 ++++----
 zgo-backend.cabal |  2 +-
 5 files changed, 18 insertions(+), 6 deletions(-)

diff --git a/app/Tasks.hs b/app/Tasks.hs
index 62027da..12ffa3a 100644
--- a/app/Tasks.hs
+++ b/app/Tasks.hs
@@ -29,5 +29,6 @@ main = do
       expireOwners pipe (c_dbName loadedConfig)
       updateLogins pipe loadedConfig
       expireProSessions pipe (c_dbName loadedConfig)
+      loadTranslations pipe loadedConfig
       close pipe
     else fail "MongoDB connection failed!"
diff --git a/src/ZGoBackend.hs b/src/ZGoBackend.hs
index 68c883b..9f9a9fe 100644
--- a/src/ZGoBackend.hs
+++ b/src/ZGoBackend.hs
@@ -15,6 +15,7 @@ import Control.Monad.IO.Class
 import Crypto.RNG (newCryptoRNGState, runCryptoRNGT)
 import Crypto.RNG.Utils (randomString)
 import Data.Aeson
+import Data.Aeson (decodeFileStrict)
 import Data.Array
 import qualified Data.Bson as B
 import qualified Data.ByteArray as BA
@@ -2176,3 +2177,13 @@ upsertBlock b = do
 
 findBlock :: Action IO (Maybe Document)
 findBlock = findOne (select ["network" =: ("mainnet" :: String)] "blocks")
+
+loadTranslations :: Pipe -> Config -> IO ()
+loadTranslations pipe config = do
+  itemList <- decodeFileStrict "zgolanguagedb.json"
+  case itemList of
+    Nothing -> print "Couldn't not parse JSON file"
+    Just langItems ->
+      mapM_
+        (access pipe master (c_dbName config) . loadLangComponent)
+        (langItems :: [LangComponent])
diff --git a/stack.yaml b/stack.yaml
index 90f0c8e..8f78da2 100644
--- a/stack.yaml
+++ b/stack.yaml
@@ -17,7 +17,7 @@
 #
 # resolver: ./custom-snapshot.yaml
 # resolver: https://example.com/snapshots/2018-01-01.yaml
-resolver: lts-21.4
+resolver: lts-21.17
   #url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/19/4.yaml
 
 # User packages to be built.
diff --git a/stack.yaml.lock b/stack.yaml.lock
index 8cc2c00..d88e25b 100644
--- a/stack.yaml.lock
+++ b/stack.yaml.lock
@@ -103,7 +103,7 @@ packages:
     hackage: crypto-rng-0.3.0.1@sha256:04f4ae75943ecad8b794950985054130f272d65a588b6b6528f56df0bfedc4dc,1565
 snapshots:
 - completed:
-    sha256: caa77fdbc5b9f698262b21ee78030133272ec53116ad6ddbefdc4c321f668e0c
-    size: 640014
-    url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/21/4.yaml
-  original: lts-21.4
+    sha256: 85d2382958c178491d3fe50d770a624621f5ab456beef7d31ac7521f780c9bc7
+    size: 640042
+    url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/21/17.yaml
+  original: lts-21.17
diff --git a/zgo-backend.cabal b/zgo-backend.cabal
index 9710f2c..0d59748 100644
--- a/zgo-backend.cabal
+++ b/zgo-backend.cabal
@@ -1,6 +1,6 @@
 cabal-version: 1.12
 
--- This file has been generated from package.yaml by hpack version 0.35.1.
+-- This file has been generated from package.yaml by hpack version 0.35.2.
 --
 -- see: https://github.com/sol/hpack