Commit 985b5c32 authored by Duncan Coutts's avatar Duncan Coutts
Browse files

Do not display version tags

parent 247de2e5
...@@ -35,9 +35,8 @@ instance Text Bool where ...@@ -35,9 +35,8 @@ instance Text Bool where
Parse.string "false") >> return False ] Parse.string "false") >> return False ]
instance Text Version where 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 (Disp.punctuate (Disp.char '.') (map Disp.int branch))
<> Disp.hcat (map (\tag -> Disp.char '-' <> Disp.text tag) tags)
parse = do parse = do
branch <- Parse.sepBy1 digits (Parse.char '.') branch <- Parse.sepBy1 digits (Parse.char '.')
......
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