From 17facb8c9e1626e3085ec660dc722078e14595f5 Mon Sep 17 00:00:00 2001
From: Moritz Angermann <moritz.angermann@gmail.com>
Date: Wed, 12 Jun 2024 03:27:42 +0000
Subject: [PATCH] Make stylish happy?

---
 command-line/test/Main.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/command-line/test/Main.hs b/command-line/test/Main.hs
index d2e586e1e..d5668653a 100644
--- a/command-line/test/Main.hs
+++ b/command-line/test/Main.hs
@@ -19,9 +19,9 @@ import System.IO (hSetEncoding, utf8, hPutStrLn, stderr, stdin, stdout)
 import System.Win32.Console (setConsoleCP, setConsoleOutputCP, getConsoleCP, getConsoleOutputCP)
 #endif
 
+#ifdef mingw32_HOST_OS
 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
@@ -29,12 +29,12 @@ initialize = do
     query get set expected = do
         v <- get
         if v == expected then pure () else set expected
-#else
-    pure ()
 #endif
 
 main :: IO ()
 main = do
     ghcjsBuildSupport
+#ifdef mingw32_HOST_OS
     initialize
+#endif
     withUtf8 $ hspecWith defaultConfig AutoDiscover.spec