Commit 17abe3c6 authored by Duncan Coutts's avatar Duncan Coutts
Browse files

Put spaces round || and && when displaying version range expressions

This makes them much more readable.
parent 539a79f7
......@@ -59,7 +59,7 @@ import Distribution.Text ( Text(..) )
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
......@@ -126,9 +126,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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment