Update lts-diff.hs to work with current libraries

import System.Environment (getArgs)

import System.Exit (exitFailure)

import Distribution.Package ( PackageId

                            , PackageName(PackageName)

                            , PackageName

                            , PackageIdentifier(PackageIdentifier)

                            , mkPackageName

                            , pkgName

                            , pkgVersion

                            , unPackageName

                            )

import Distribution.Version ( Version(Version)

                            , versionBranch

import Distribution.Version ( Version

                            , mkVersion

                            )

import Distribution.Text (display)

import Safe (readMay)

main :: IO ()

parseDebianPackage :: String -> Maybe PackageId

parseDebianPackage line = do

  (rawName:rawVersion:_) <- return $ words line

  let name = PackageName rawName

  let name = mkPackageName rawName

  version <- parseVersion rawVersion

  return PackageIdentifier { pkgName = name

                           , pkgVersion = version

                                       -- Throws eventual whitespaces

                                       -- from the end and the

                                       -- beginning of the name

                                   let name = PackageName

                                   let name = mkPackageName

                                              $ filter isAlpha

                                                       rawName

                                       -- Throw the trailing comma away.

printDifference :: PackageName -> (Version, Version) -> IO ()

printDifference name (debianV, ltsV) =

    putStrLn $ unPackageName name ++ " has version " ++

             showVersion debianV ++ " in Debian but " ++ showVersion

             ltsV ++ " in LTS."

             display debianV ++ " in Debian but " ++

             display ltsV ++ " in LTS."

printMore :: S.Set PackageName -> IO ()

printMore more = do

parseVersion raw = do

  let parts = splitOn "." raw

  numericParts <- mapM readMay parts

  return $ Version numericParts []

  return $ mkVersion numericParts

stripComma :: String -> String

stripComma s

    | last s == ',' = init s

    | otherwise = s

showVersion :: Version -> String

showVersion = intercalate "." . map show . versionBranch