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
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 branch))
<> Disp.hcat (map (\tag -> Disp.char '-' <> Disp.text tag) tags)
parse = do
branch <- Parse.sepBy1 digits (Parse.char '.')
Supports Markdown
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