Refactor: reduce some usage of '#if IS_WINDOWS'

haskell · Nov 19, 2024 · 7266dcb · 7266dcb
1 parent 71f5738
commit 7266dcb
Showing 1 changed file with 9 additions and 21 deletions.
diff --git a/lib-tui/GHCup/Brick/Common.hs b/lib-tui/GHCup/Brick/Common.hs
@@ -1,4 +1,3 @@
-{-# LANGUAGE CPP               #-}
 {-# LANGUAGE DataKinds         #-}
 {-# LANGUAGE FlexibleContexts  #-}
 {-# LANGUAGE OverloadedStrings #-}
@@ -53,6 +52,7 @@ module GHCup.Brick.Common  (
   ) ) where
 
 import           GHCup.List ( ListResult )
+import           GHCup.Prelude ( isWindows )
 import           GHCup.Types ( Tool, KeyCombination (KeyCombination) )
 import Data.List (intercalate)
 import           Prelude                 hiding ( appendFile )
@@ -160,32 +160,20 @@ data Mode = Navigation
           deriving (Eq, Show, Ord)
 
 installedSign :: String
-#if IS_WINDOWS
-installedSign = "I "
-#else
-installedSign = "✓ "
-#endif
+  | isWindows = "I "
+  | otherwise = "✓ "
 
 setSign :: String
-#if IS_WINDOWS
-setSign = "IS"
-#else
-setSign = "✔✔"
-#endif
+  | isWindows = "IS"
+  | otherwise = "✔✔"
 
 notInstalledSign :: String
-#if IS_WINDOWS
-notInstalledSign = "X "
-#else
-notInstalledSign = "✗ "
-#endif
+  | isWindows = "X "
+  | otherwise = "✗ "
 
 checkBoxSelectedSign :: String
-#if IS_WINDOWS
-checkBoxSelectedSign = "Y "
-#else
-checkBoxSelectedSign = "✓ "
-#endif
+  | isWindows = "Y "
+  | otherwise = "✓ "
 
 
 showKey :: Vty.Key -> String