From 4d7b8bd7e9e0f0bdf66eda58fd501cd6fd6d0b44 Mon Sep 17 00:00:00 2001
From: Moritz Angermann <moritz.angermann@gmail.com>
Date: Wed, 12 Jun 2024 02:34:34 +0000
Subject: [PATCH] Fix windows utf-8 issues

This ensure we force the rigth codepages on windows to support utf8 caracters in the haskell source for the tests.
---
 command-line/cardano-addresses-cli.cabal |  3 +++
 command-line/test/Main.hs                | 23 +++++++++++++++++++++++
 nix/haskell.nix                          |  1 +
 3 files changed, 27 insertions(+)

diff --git a/command-line/cardano-addresses-cli.cabal b/command-line/cardano-addresses-cli.cabal
index b564aa564..9cc9820ee 100644
--- a/command-line/cardano-addresses-cli.cabal
+++ b/command-line/cardano-addresses-cli.cabal
@@ -161,6 +161,9 @@ test-suite unit
     , temporary
     , text
     , with-utf8
+  if os(windows)
+    build-depends:
+        Win32
   if flag(release)
     ghc-options: -Werror
   if !(impl(ghcjs) || os(ghcjs))
diff --git a/command-line/test/Main.hs b/command-line/test/Main.hs
index 24f9cb094..d2e586e1e 100644
--- a/command-line/test/Main.hs
+++ b/command-line/test/Main.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
 module Main where
 
 import Prelude
@@ -11,7 +12,29 @@ import Test.Hspec.Runner
 
 import qualified AutoDiscover
 
+-- This is effectively from the now defunct foundation/basement from
+--  https://github.com/haskell-foundation/foundation/blob/5e28e3ea1e2fe9a98c157df463bd32d3f92e7f80/basement/Basement/Terminal.hs#L14-L26
+#ifdef mingw32_HOST_OS
+import System.IO (hSetEncoding, utf8, hPutStrLn, stderr, stdin, stdout)
+import System.Win32.Console (setConsoleCP, setConsoleOutputCP, getConsoleCP, getConsoleOutputCP)
+#endif
+
+initialize :: IO ()
+initialize = do
+#ifdef mingw32_HOST_OS
+    query getConsoleOutputCP (\e -> setConsoleOutputCP e >> hSetEncoding stdout utf8 >> hSetEncoding stderr utf8) utf8Code
+    query getConsoleCP (\e -> setConsoleCP e >> hSetEncoding stdin utf8) utf8Code
+  where
+    utf8Code = 65001
+    query get set expected = do
+        v <- get
+        if v == expected then pure () else set expected
+#else
+    pure ()
+#endif
+
 main :: IO ()
 main = do
     ghcjsBuildSupport
+    initialize
     withUtf8 $ hspecWith defaultConfig AutoDiscover.spec
diff --git a/nix/haskell.nix b/nix/haskell.nix
index cbabb9d15..50db37ed1 100644
--- a/nix/haskell.nix
+++ b/nix/haskell.nix
@@ -54,6 +54,7 @@ haskell-nix.cabalProject' (
       };
       crossPlatforms = p: with p;
         lib.optional (system == "x86_64-linux" && builtins.elem config.compiler-nix-name ["ghc8107"]) ghcjs ++
+        lib.optional (system == "x86_64-linux") mingwW64 ++
         lib.optional (system == "x86_64-linux") musl64;
     };
     shell = {