From 4095dc4f0b532f3c6cda475827f5bc8339e9de9a Mon Sep 17 00:00:00 2001
From: Duncan Coutts <duncan@haskell.org>
Date: Fri, 9 May 2008 09:44:55 +0000
Subject: [PATCH] Do not display version tags
---
Distribution/Text.hs | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/Distribution/Text.hs b/Distribution/Text.hs
index 507e8631c6..b0c1604917 100644
--- a/Distribution/Text.hs
+++ b/Distribution/Text.hs
@@ -35,9 +35,8 @@ instance Text Bool where
Parse.string "false") >> return False ]
instance Text Version where
- disp (Version branch tags)
+ disp (Version branch _tags) -- Do not display the tags
= Disp.hcat (Disp.punctuate (Disp.char '.') (map Disp.int branch))
- <> Disp.hcat (map (\tag -> Disp.char '-' <> Disp.text tag) tags)
parse = do
branch <- Parse.sepBy1 digits (Parse.char '.')
--
GitLab