robocop

commit ba9a8c3e72318f8623414b7ed18fca325361220d
parent 9342e471db9681e63fa368d4c3af0a954ac3269e
Author: Vint Leenaars <vl.software@leenaa.rs>
Date:   Fri,  9 May 2025 08:32:08 +0200

Add unicode encoding

Diffstat:
M
app/Main.hs
 | 
5
+++--

1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/app/Main.hs b/app/Main.hs
@@ -9,9 +9,10 @@ import Control.Exception
 import Control.Monad (when)
 
 import Data.Aeson (eitherDecode)
-import qualified Data.ByteString.Lazy.Char8 as BLC
 import Data.Time
 import qualified Data.Text as T
+import Data.Text.Lazy as TL
+import Data.Text.Lazy.Encoding (encodeUtf8)
 import Dhall
 
 import KYCheck.Check
@@ -34,7 +35,7 @@ readJSON config sanction_list = do
   line <- getLine
   if line == "quit"
   then print "Thank you for using KYCheck."
-  else do case (eitherDecode . BLC.pack) line of
+  else do case (eitherDecode . encodeUtf8 . TL.pack) line of
             Left err    -> print $ "Could not decode JSON (" ++ show err ++ "), please try again"
             Right entry -> case entry of
                              NP person -> mapM_ print $ checkPersons config (individuals sanction_list) person