parseHintSpec src = case splitOn "/" src of
    [src] -> Just $ HintSpec (SourceName (BS.pack src)) Nothing Nothing
    [src,version] -> Just $ HintSpec (SourceName (BS.pack src)) (Just (DebianVersion (BS.pack version))) Nothing
    _ -> Nothing
parseHintSpec src = case splitOn "/" src of
    [src] -> Just $ HintSpec (SourceName (BS.pack src)) Nothing Nothing
    [src,version] -> Just $ HintSpec (SourceName (BS.pack src)) (Just (DebianVersion (BS.pack version))) Nothing
    _ -> Nothing
parseHintSpec src = case splitOn "/" src of
    [src] -> Just $ HintSpec (SourceName (BS.pack src)) Nothing Nothing
    [src,version] -> Just $ HintSpec (SourceName (BS.pack src)) (Just (DebianVersion (BS.pack version))) Nothing
    _ -> Nothing