partVersion :: String -> Maybe Version
partVersion = msum . map version . parts '-'
partVersion :: String -> Maybe Version
partVersion = msum . map version . parts '-'
partVersion = msum . map version . parts '-'