hasufell/ghcup-hs
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Reduce IS_WINDOWS CPP

Browse Source
This commit is contained in:
Julian Ospald
2021-10-17 20:39:49 +02:00
parent 9d8fdfe090
commit 9f8c9c228d
10 changed files with 380 additions and 363 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
app/ghcup/GHCup/OptParse/List.hs
View File

@@ -11,6 +11,7 @@ module GHCup.OptParse.List where
import GHCup
import GHCup.Utils.Prelude
import GHCup.Types
import GHCup.OptParse.Common
@@ -115,15 +116,9 @@ printListResult no_color raw lr = do
. fmap
(\ListResult {..} ->
let marks = if
#if defined(IS_WINDOWS)
| lSet -> (color Green "IS")
| lInstalled -> (color Green "I ")
| otherwise -> (color Red "X ")
#else
| lSet -> (color Green "✔✔")
| lInstalled -> (color Green "✓ ")
| otherwise -> (color Red "✗ ")
#endif
| lSet -> (color Green (if isWindows then "IS" else "✔✔"))
| lInstalled -> (color Green (if isWindows then "I " else "✓ "))
| otherwise -> (color Red (if isWindows then "X " else "✗ "))
in
(if raw then [] else [marks])
++ [ fmap toLower . show $ lTool