@@ -28,7 +28,7 @@ string :: String -> Doc
28string = doubleQuotes . text
28string = doubleQuotes . text
30version :: [Int] -> Doc
30version :: [Int] -> Doc
31−version = hcat . punctuate (text ".") . map int
31+version = doubleQuotes (hcat . punctuate (text ".") . map int)
33prepunctuate :: Doc -> [Doc] -> [Doc]
33prepunctuate :: Doc -> [Doc] -> [Doc]
34prepunctuate _ [] = []
34prepunctuate _ [] = []