ghcVersion :: String -> Maybe Version
ghcVersion s = case parts '-' s of
    ("ghc":v:_) -> version v
    _ -> Nothing
ghcVersion :: String -> Maybe Version
ghcVersion s = case parts '-' s of
    ("ghc":v:_) -> version v
    _ -> Nothing
ghcVersion s = case parts '-' s of
    ("ghc":v:_) -> version v
    _ -> Nothing