From 8ccc35eeaef37553322941657f091cb4465e7a85 Mon Sep 17 00:00:00 2001
From: Duncan Coutts <duncan@haskell.org>
Date: Thu, 29 May 2008 10:42:14 +0000
Subject: [PATCH] Put spaces round || and && when displaying version range
expressions This makes them much more readable.
---
Distribution/Version.hs | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/Distribution/Version.hs b/Distribution/Version.hs
index 7d319e4f3f..11a10bb4c3 100644
--- a/Distribution/Version.hs
+++ b/Distribution/Version.hs
@@ -62,7 +62,7 @@ import Distribution.Text ( Text(..), display )
import qualified Distribution.Compat.ReadP as Parse
import Distribution.Compat.ReadP ((+++))
import qualified Text.PrettyPrint as Disp
-import Text.PrettyPrint ((<>))
+import Text.PrettyPrint ((<>), (<+>))
-- -----------------------------------------------------------------------------
-- Version ranges
@@ -129,9 +129,9 @@ instance Text VersionRange where
disp (UnionVersionRanges (EarlierVersion v2) (ThisVersion v1))
| v1 == v2 = Disp.text "<=" <> disp v1
disp (UnionVersionRanges r1 r2)
- = disp r1 <> Disp.text "||" <> disp r2
+ = disp r1 <+> Disp.text "||" <+> disp r2
disp (IntersectVersionRanges r1 r2)
- = disp r1 <> Disp.text "&&" <> disp r2
+ = disp r1 <+> Disp.text "&&" <+> disp r2
parse = do
f1 <- factor
--
GitLab