diff --git a/Distribution/Text.hs b/Distribution/Text.hs
index 507e8631c6572bcc37827834ad1b05d0a5edfc6d..b0c1604917d301d2fa4d7a21b8431870ad65958d 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 '.')