File tree 1 file changed +4
-11
lines changed
Cabal/Distribution/PackageDescription 1 file changed +4
-11
lines changed Original file line number Diff line number Diff line change @@ -126,17 +126,10 @@ ppCondTree2 v grammar = go
126
126
thenDoc = go thenTree
127
127
128
128
ppIf (CondBranch c thenTree (Just elseTree)) =
129
- case (False , False ) of
130
- -- case (isEmpty thenDoc, isEmpty elseDoc) of
131
- (True , True ) -> mempty
132
- (False , True ) -> [ ppIfCondition c thenDoc ]
133
- (True , False ) -> [ ppIfCondition (cNot c) elseDoc ]
134
- (False , False ) -> [ ppIfCondition c thenDoc
135
- , PrettySection () " else" [] elseDoc
136
- ]
137
- where
138
- thenDoc = go thenTree
139
- elseDoc = go elseTree
129
+ -- See #6193
130
+ [ ppIfCondition c (go thenTree)
131
+ , PrettySection () " else" [] (go elseTree)
132
+ ]
140
133
141
134
ppCondLibrary :: CabalSpecVersion -> Maybe (CondTree ConfVar [Dependency ] Library ) -> [PrettyField () ]
142
135
ppCondLibrary _ Nothing = mempty
You can’t perform that action at this time.
0 commit comments