From 124fe747f2909b921dad590ce965e492dc73a07c Mon Sep 17 00:00:00 2001
From: Sebastian Graf <sgraf1337@gmail.com>
Date: Sat, 10 Aug 2019 14:26:58 -0400
Subject: [PATCH] Update PrettyPrint.hs
---
Cabal/Distribution/PackageDescription/PrettyPrint.hs | 9 ++-------
1 file changed, 2 insertions(+), 7 deletions(-)
diff --git a/Cabal/Distribution/PackageDescription/PrettyPrint.hs b/Cabal/Distribution/PackageDescription/PrettyPrint.hs
index f7cf2f6b17..de064bd7bc 100644
--- a/Cabal/Distribution/PackageDescription/PrettyPrint.hs
+++ b/Cabal/Distribution/PackageDescription/PrettyPrint.hs
@@ -126,13 +126,8 @@ ppCondTree2 v grammar = go
thenDoc = go thenTree
ppIf (CondBranch c thenTree (Just elseTree)) =
- case (False, False) of
- -- case (isEmpty thenDoc, isEmpty elseDoc) of
- (True, True) -> mempty
- (False, True) -> [ ppIfCondition c thenDoc ]
- (True, False) -> [ ppIfCondition (cNot c) elseDoc ]
- (False, False) -> [ ppIfCondition c thenDoc
- , PrettySection () "else" [] elseDoc
+ [ ppIfCondition c thenDoc
+ , PrettySection () "else" [] elseDoc
]
where
thenDoc = go thenTree
--
GitLab