Refactor: reduce some usage of '#if IS_WINDOWS'

haskell · Dec 2, 2024 · a18a9cd · a18a9cd
1 parent c8df1a8
commit a18a9cd
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 )
@@ -161,32 +161,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